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Abstract 

High-rate underwater acoustic communication can be achieved using 
transmitter/receiver arrays. Underwater acoustic channels can be characterized 
as rapidly time-varying systems that suffer severe Inter Symbol Interferences (ISI) 
caused by multi-path propagation. Multi-channel combining and equalization, as 
well as time-reversal techniques have been used over these channels to reduce 
the effect of ISI. As an alternative, a spatiotemporal focusing technique had been 
proposed. This technique is similar to time-reversal but it explicitly takes into 
account elimination of ISI. To do so, the system relies on the knowledge of 
channel responses. In practice, however, only channel estimates are available. 

To assess the system performance for imperfectly estimated time-varying 
channels, a simulation analysis was conducted. Underwater acoustic channels 
were modeled using geometrical representations of a 3-path propagation model. 
Multi-path fading was incorporated using auto regressive models. Simulations 
were conducted with various estimator delay scenarios for both the 
spatiotemporal focusing and simple time-reversal. Results demonstrate 
performance dependence on the non-dimensional product of estimation delay 
and Doppler spread. In particular, it has been shown that when this product is 
low, the performance of spatiotemporal focusing remains superior to simple time- 
reversal. 

Thesis Supervisor: Milica Stojanovic 

Title: Principle Scientist, MIT Sea Grant Program 
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1.0 Introduction 

Acoustic transmission in the ocean often has multiple paths due to 
interactions between sound waves and the sea surface and the bottom. This 
pattern of multiple-path transmission leads to significant time spread at the 
receiver. The pattern will also experience time-variation as the surface of the sea 
changes with waves. Such time-variant spreading along with dispersion makes 
underwater acoustic communications extremely difficult. 

This paper is to document the simulation evaluation of an innovative 
optimization technique in underwater acoustic communications. The technique is 
derived from the general principles of time-reversal or phase-conjugate focusing 
[1], [2], but with the explicit requirement of eliminating the Inter Symbol 
Interference (ISI) while preserving constant power constraint. The technique is 
referred to as spatiotemporal focusing and can be further divided into 
unrestricted two-sided filter adjustment and restricted one-sided filter adjustment 
[3]. It can be regarded as an alternative to multi-channel equalization [4], The 
basics of time-reversal and spatiotemporal focusing are explained in the next 
section. 

1.1 Background 

The majority of underwater acoustic channels can be characterized as 
rapidly time-varying channels that suffer from severe multi-path propagation and 
large Doppler fluctuations [3] . Inter Symbol Interferences (ISI) caused by multi- 
path, and Doppler effects caused by channel time-varying characteristics are 
much more pronounced than those of radio channels where much higher carrier 
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frequencies are used. To combat ISI in underwater communication channels, 
sophisticated signal processing techniques must be utilized. 

Techniques such as adaptive multi-channel combining and equalization 
are very effective in reducing ISI [4], Spatial modulation over multi-input multi¬ 
output (MIMO) channels had also been investigated for reducing ISI in 
underwater acoustic systems [5]. However, to obtain the improved performance, 
computationally complex algorithms are utilized in these approaches. 

To reduce the computational complexity of multi-channel equalization, 
time-reversal arrays have been investigated for use in underwater acoustic 
communications [6],[7],[8]. Time reversal, or phase conjugation in the frequency 
domain, refocuses the signal energy back to the source, thus reducing the effect 
of multi-path. 

A highly idealized example can illustrate the time-reversal principle. When 
a signal Sj(t) is transmitted through the / h channel, its response can be expressed 
as: 

nil) = s,(t) *h.(t) (1.1.1) 

where h^t) is the impulse response of the channel. The receiver observes r t {t) 
and retransmits the time-reversed version of the signal r(-t) back into the 

channel. At the locale of the original source, the combined signal (with array size 
N) will be: 

s r (t) = f J s' i (-t)*(h:(-t)*h i (t)) (1.1.2) 

»=l 

The convolution / 2 *(-r)*/ 2 ( .( 0 enhances the principal component while reducing 

the relative strength of multi-path components. It can be seen in equation (1.1.2) 
that the degree to which the signal is focused depends on the size N of the 
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“focusing” array. It is also worth noting that, in the absence of noise, time- 
reversal is in fact the implementation of channel-matched filters. 

Various methods have been proposed to take advantage of the time- 
reversal principle. These methods include passive phase-conjugation, active 
phase-conjugation and phase-conjugation with adaptive channel estimation 
[[6],[7],[8]]. Some of these methods reduce the signal processing at the expense 
of data rate while others utilize some signal processing (channel estimation) at 
the receiver to improve performance. They all suffer, however, the common 
problem of sub-optimal system design in that the ISI elimination is not completely 
achieved. 

1.2 Problem Definition 

A new approach has been proposed to combine time-reversal with a 
system design that is explicitly optimized with respect to ISI elimination and SNR 
maximization [3], Referred to as spatiotemporal focusing, it utilizes both the 
receiver and transmitter filter design to achieve optimization goals. Such 
optimized design does not depend solely on array size to reduce ISI; instead, it 
leaves the freedom of adjusting array size vs. computational complexity to the 
system designer. In this aspect, it differs from typical time-reversal where the 
signal resolution depends exclusively on the array size. Spatiotemporal focusing 
is also different from standard receiver-side equalization in that it attempts to 
optimize both the receiver and transmitter ends (unrestricted two-side filter 
adjustment). However, if an application calls for limited complexity at one end of 
the system, retro-focusing optimization can be performed at one end only to 
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reduce computational burden at the other end (restricted one-sided filter 
adjustment). In this work, we focus on the one-side adjustment system. 

To implement this system in practice, it is necessary for the 
receiver/transmitter to know the channel response between the two ends of the 
system. One equipped with a simple element and another with an array of 
elements. When channel estimates are used in place of the true channel 
responses, estimation errors will affect system performance. The objective of this 
work is to assess the impact of the estimation errors on the system performance. 
Notable for acoustic channels is the long propagation delays, which may cause 
significant difference between the time when the channel was observed and the 
time of transmission. 

As precursor to the experimental validation of spatiotemporal focusing 
techniques, simulations of a spatiotemporal focusing system in shallow water 
environment have been conducted. In order to facilitate comparison with simple 
time reversal, simulations of time-reversal in the same environment have also 
been completed. There were several steps in approaching the task of 
constructing the simulation model. First, we defined the system and its 
optimization scheme including analytical expressions that specify optimal filters 
according to time reversal and spatiotemporal criteria [3]. Second, we 
constructed shallow water communication channels using a simplified 3-path 
model. The channels were first approximated as time-invariant with all channel 
characteristics being calculated using channel geometry. Then the channel 
variations were modeled as Gaussian random processes. Auto regressive model 
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of order one (AR1) and order two (AR2) were considered for modeling channel 
variations. In addition, two types of possible estimator schemes were offered for 
estimating time-varying channels. Finally, simulation runs were conducted using 
AR2 model with a simple delay estimator scheme for restricted one-side focusing 
and time reversal. The results were graphed and discussed. 

Chapter 2 describes the system optimization through filter calculations for 
both time reversal and spatiotemporal focusing. Chapter 3 specifies channel 
model. The simulation results, including time reversal performance results, are 
presented in Chapter 4 where the performance of one-side spatiotemporal 
focusing is compared with that of time-reversal/phase conjugation. The 
advantages and disadvantages of each technique are discussed. Some of the 
future research works are discussed in Chapter 5 along with the concluding 
remarks. 
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2.0 System Optimization 



Figure 2-1 Downlink system schematic 



Figure 2-2 Uplink system schematic 

In this chapter, system optimization is addressed for uplink and downlink 
communications. The schematics of downlink and uplink are shown in Figure 2-1 
and Figure 2-2, respectively. The direction from multi-element array to single 
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element is defined as downlink; the direction from single element to multi¬ 
element array is defined as uplink. Data stream is represented by d[n]. _y[«]is 
the sampled signal stream with the sampling rate of 1/T, where T is the symbol 
interval. 

The figure of merit for system performance will be output Signal-to-Noise- 
Ratio (SNR) as measured in the variable y[n] . Performance comparison between 
time reversal and spatiotemporal focusing will be made using this SNR value. For 
time reversal, filters are to be calculated based on the underlining principles of 
phase-conjugation (time reversal in frequency domain); spatiotemporal filters are 
to be calculated using SNR maximization with no-ISI and constant energy 
constraints. We will first start with time-reversal filter calculations. 


2.1 Time Reversal 

Time reversal technique implements phase-conjugated channel impulse 
response to process the received signal. In frequency domain, the channel 
transfer function can be given as[3] 

C.(/) = Lc„(t) ^ f J, • A ' , ' , (2.1.1) 

P =0 

The composite channel power spectral density /(f) derived as 

M 

= (2.1.2) 

m=] 
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This power spectral density in time domain exhibits certain properties that 
enable the time-reversal to work. Succinctly put, time reversal is the simplest 
form of focusing. As the number of channels increases, the center-lobe power 


M=A time reversal impulse response 



Figure 2-3 Time-reversal impulse response 

increases and the side-lobe power decreases. Such impulse response convolved 
with the received signal will tend to focusing the main power in the zero- 
referenced signal component while suppressing the delayed components of the 
signal. Consequently, the ISI between zero-referenced component and delayed 
components is suppressed. In our model of 3-path communication channel, such 
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phenomenon can be readily seen in Figure 2-3, where low-pass filtered versions 
of 4-channel composite p.s.d (X(f)y(f)) impulse response and 32-channel 
composite p.s.d impulse response are shown. We can clearly see that the center 
lobe magnitude increases with the increasing of channel numbers while the side- 
lobe magnitude decreases at the same time. 

To implement time reversal, we will compute the transmit filter and receive 
filter according to the principle of phase conjugation. For the uplink case, the 
transmitter filter is the standard square-root raised-cosine filter Jx(f) with gain 

factor of K u , G 0 (f ) = K u Jx(f) . The receiving filter is given by 


G m (f) = G 0 *(/)C;(/),m = l,..M (2.1.3) 

The gain constant can be calculated using the transmit energy constraint as 


K„ = 


r XUW 

J —CO 

where E is the transmit energy and f° X{f)df = x 0 . This filter calculation gives 

J-oo 


(2.1.4) 


results similar to passive phase conjugation. 

For downlink case, the transmitter uses filter 

GJf) = K dy [X(jjc:(f),m = 1 ,..M (2.1.5) 

Where K d can be calculated using energy constraint equation (2.2.23) 


K d 


r X(f)y(f)df 

J-CO 


( 2 . 1 . 6 ) 


This filter produces result analogous to that of active phase-conjugation. 
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2.2 Spatiotemporal Focusing 

Spatiotemporal focusing explicitly enforces no-ISI condition while 
maximizing SNR through implementation of temporal focusing in addition to 
spatial focusing achieved by simple time reversal. There are two implementation 
variations for spatiotemporal focusing. Unrestricted two-side focusing 
implementation is a pure form of optimization in that it does not put additional 
restriction on SNR optimization other than no-ISI and energy constraints. It 
achieves optimal performance results. Restricted one-side focusing, on the other 
hand, will sacrifice some performance comparing to two-side focusing in 
exchange for reduced complexity on one end of the system. As presented by 
Stojanovic[3] , filters can be calculated analytically with known channel transfer 
functions and channel noise power spectrum. With that assumption, we will start 
with one-side restricted filter calculations first. 

From now on, we will focus on the case where channel noise is assumed to be 
white, i.e. S w (f) = N 0 . 

2.2.1 One-sided Restricted Filters 

Some applications require that one side of the communication link can 
only have minimal complexity, such situation may rise in Autonomous 
Underwater Vehicles (AUV) applications where volume and power constraint limit 
the processing complexity inside the AUV. In these situations, we constrain the 
single-element side to use only the standard fixed filter. 
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The downlink case is shown below. The no-ISI condition must hold in one¬ 
sided restricted case, i.e. F(f) = X(f) . To maximize SNR, the transfer function 
should be divided between the transmitter and receiver so that 


where j3 is a constant and S w (f) = N 0 is the power spectral density of the 
channel noise. SNR can be expressed as 


o A 


SNR - ■ 


fee M 

£g„(/)Xc„(/)c,(/) 


f s.(f)\aHf)\df 


where cr] = E{d 2 [n ]} is the power of transmitted signals. 
Applying the Shwarz inequality to nominator 


M 

£c,(/)Z<J.(/)c.(/) s £|c 0 (/) 


M 

Zc„(/)c,(/) 


It follows that 


( 2 . 2 . 2 ) 


(2.2.3) 


2Xc 


df 


SNR < <j] r — 1 - 

s w {f) 

Applying the Shwarz inequality again to the integrand and substituting 

M 

r(T) = E |C.(/)| ! 


(2.2.4) 


1 M 

5A«S^r-)-K/)2;|c;(/)| (2.2.5) 

t m= I 

Where maximum SNR is achieved when G m {f) = a(f)C* m {f),m = 1 ,...M . 

Combining this condition with (2.2.1) and no-ISI constraint, we obtain receiving 
filter for the downlink restricted case 
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The transmission filter is 


G 0 (f) = K-'(f)4x(fj 


( 2 . 2 . 6 ) 


G m (f) = ^(/)#(7)r-'(/)C:(/),« = U.M (2.2.7) 

Where the gain factor 

*(/) = L (2.2.8) 

With white noise assumption, S w (f ) = N 0 , the factor K(f ) becomes 

constant independent of frequency. Consequently, the same set of filters can be 
used for uplink and downlink transmissions. The filters then can be expressed as 

G 0 (f) = K-'Jx(fj (2.2.9) 

G m {f) = KjxU)y-\f)C' m {f\rn = \,...M (2.2.10) 

The uplink case can be derived similarly. The filter and gain factor are 
listed below 

g.(/)=^ n /T7) 

cjf) = ( 2 . 2 . 11 ) 

whereK = 



2.2.2 Two-sided Unrestricted Filters 

As presented in [3], two-side filter analytical expression can be derived 
similarly. Assume that the power spectral density S w (f) of the uncorrelated noises 
w m (t), m=0,1 ...N are known. Channel responses C m (f), are also 

assumed known (either a priori or through estimation). G 0 (f) and G m (f),m=1 ....N, 
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are the filters at the transmitter/receiver. The goal is to design the filters G 0 (f) and 
G m (f),m=1 ...M, so as to maximize the SNR with constraints of no ISI and finite 
transmitted energy per symbol. For uplink transmission, the constraints can be 
expressed as 

y{nT ) = d(n)x 0 + z(nT ) 

+oo 

E = \\Gl(f)\df 

—O0 

The received noise z(t) is the result of white Gaussian noise w(t) going through 
LTI filters. For the uplink transmission, if we denote the white noise process as 
w m (t) and its power spectral density as S w (f) , then the received noise power 
spectral density is 

M 

■S,(/) = S„(/)*IK(/)| (2-2.14) 

m=] 


( 2 . 2 . 12 ) 

(2.2.13) 


where a] is the variance of d(n ) , <r 2 = E{d 2 (n)} . If al = f SAf)df is the 

J-oo 

variance of z(nT), then the SNR can be expressed as: 


SNR=2? 


(2.2.15) 


Let X(f) be a raised cosine spectrum, and X(f) = \X(f)\. Its time domain 

waveform satisfies the following condition for all n * 0: 

x(nT) = 0 (2.2.16) 

Let the baseband transfer function of uplink be F{f ): 


M 

nn=G 0 (f)Y J G m (f)c m (f) 


m =1 


(2.2.17) 
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The no-ISI condition means that the baseband transfer function F(f) must 
satisfy 

F(f) = X(f) (2.2.18) 

From(2.2.13), the variance a] is: 


2 E 

a d ~ -KB 

—00 

From(2.2.17) and (2.2.18), it follows that: 


(2.2.19) 




E _ 

X\f) 

M 

m—\ 


( 2 . 2 . 20 ) 


From the definition of noise variance a] and equation (2.2.14), a) can be 
expressed as: 


^00 M , 

£A(/>2K</>k < 2 - 2 - 21 ) 

m-\ 

Combining the equations(2.2.15), (2.2.20), and (2.2.21), we have 


SNR = 


Exl 


S C„(/)C.(/) 


( 2 . 2 . 22 ) 


This function can be maximized with respect to the filtersG m (/), m=1,2...M. 

The downlink no ISI constraints is the same as the uplink case as shown 
in(2.2.12). The energy constraints on the downlink is 


M 

m =1 

It follows that in downlink case 


(2.2.23) 
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E_ 


(2.2.24) 


d ~ srr l 2 I 

/n=l ^ 

The goal of the optimization is to maximize SNR with respect to filter 
parameters. In the uplink case, the SNR is expressed in equation(2.2.22). This 
expression of SNR already incorporates no-ISI condition, therefore, if it is 
maximized with respect to the filters = \,...M , the received filter will have 

maximized SNR with no ISI. As it is shown in [3], the optimization involves two- 
step procedure that uses Schwarz inequality in each step. Specifically, from 
Schwarz inequality 

M 

m=] 

where the equality holds for 

G m {f) = cc{f)C' m (f) (2.2.26) 

where factor «(/) is to be optimized. Using the inequality, we have 


M M 

S IK</)|2K(/>I (2.2.25) 

ni -1 m=\ 


SNR < 


_ &£ _ 


(2.2.27) 


M 

where /(/) = ^|c^(/)| is the composite channel power spectral density. 

m =I 


Applying a second Schwarz inequality to the denominator in 
equation(2.2.27), we have 


XoC 


M 

h/)2K</)| 

m =1 


where the equality holds for 
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7T^ |C " (/)| 


( 2 . 2 . 29 ) 


where ft is a constant. 


Combining equations (2.2.26) and (2.2.29) we obtain the optimal value for 


a(f) 


a ( a = j _ j _ ield. 

^ ' Jp s'"(f) r M (f) 


From the no ISI constraint (2.2.18) 


G 0 (f) = 


Xjf) 

<*(/>(/) 


and the constant p then follows from the energy constraint(2.2.13) 


(2.2.30) 


(2.2.31) 


G 0 (f) = K(f)JX(f)y u \f) 

The uplink receiver filter is given below 

G m (f) = K-\f)4xU)y- v \f)C' m (f),m = 1 ,...M 

where in both cases, the gain of the filter is given as 


(2.2.32) 


(2.2.33) 


*</>= / r T 1 ' ~L, 


(2.2.34) 


Again assuming white noise, S w (f) = N 0 , the factor K(f ) becomes constant and 

the same set of filters can be used for uplink and downlink transmissions. The 
factors K then become constant independent of frequency 


*</)= r r%r 


(2.2.35) 


And filters become 


G 0 (f) = KjX(f)y' , \f) 


(2.2.36) 
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cjf) = r'#(/)r' , "(/)0/).»=i ,-m 


(2.2.37) 


In downlink case, the filter is calculated similarly by a double application of 
the Schwarz inequality. The resulting filter is given below. 

For the downlink transmission filter 


G m (f) = K-'4xif)y- v \f)C m {f),m = 

The downlink receiving filter is given as 

G 0 {f) = K^XU~)y- v \f) 

In both cases, the gain of the filter is 


K = 



(2.2.38) 

(2.2.39) 


(2.2.40) 
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3.0 Channel Model 

The optimal filters in chapter 2 are derived with the assumption of known 
channel frequency response C m (f) and composite power spectrum/(/). In 
practice, this knowledge is not available. Measures must be taken to estimate 
channel characteristics with accuracy and speed. An estimated C m (f) has to 

replace the assumed-known channel frequency response. The difference 
between the true and the estimated channel responses will cause performance 
degradation. To quantify this degradation, a channel model, and the 
corresponding estimator model was implemented in simulation. In this chapter, 
we discuss the channel model that is used in simulation. Some basic 
understanding of a multi-path channel will be needed to develop such model. 
Specifically, the baseband channel characterization will be considered next. 

3.1 Baseband Characterization of a Multi-Path Channel 

Communication signals have to be modulated onto a carrier frequency 
before passing through the channel. In simulation and analysis, however, this 
modulation step is normally not done. Instead, a complex-valued baseband 
equivalent channel and system model will be used. 

Time-domain impulse response of the channel can be derived using 
statistical characterization of the channel [9], The transmitted signal is 
represented in general as: 

5(0 = Re[5,(/y 2 ^'] (3.1.1) 
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Where s,(t) is the baseband equivalent signal and f c is the carrier frequency. 

With multiple paths, both the propagation delays and the attenuation factors are 
time-variant as a result of changes in the structure of the medium. Thus, the 
received bandpass signal may be expressed in the form 

= (3.1.2) 

p 

Where a v {t) is the attenuation factor for the signal received on the p th path and 
r p (/) is the associated path delay. Substitution (3.1.1) yield 

r{t) = -t v me n ^') (3.1.3) 

P 

If we denote the quantity a p (t)e' j2ir /cTpi ' ) as c p (t) , then the above equation 
becomes 

r(t) = Re(£>„(0s,[* -r v me n ^') (3.1.4) 

P 

Therefore, the low-pass equivalent received signal is 

n(0 = Y.c P (‘Mt-T p (0] (3.1-5) 

P 

Since r t (t) is the response of an equivalent low-pass channel to he equivalent 
low-pass signal s,(t ), it follows that the low pass channel impulse response is 

c{r,t) = JX(0<S[r - r p (r)] (3.1.6) 

P 

c(r,t) represents the impulse response of the channel at time t. This is the base¬ 
band equivalent impulse response for channels that contains discreet multi-path 
components. 
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The channel base-band complex gain c p {t) is a phasor having real-valued 

amplitude [c p (/)|and phase 2nf c z p (t). In practical channels, the amplitude 

\c p (t) \ and r p (t) does not change very fast. However, the phase term 2nf c z p {t) 

will change by In whenever rchanges by 1 / f c , which is a very small number. 

Consequently, the phase term 2nf c r p (t) will go through very rapid change 

during the transmission of signals through acoustic channels. This rapid change 
of phase causes the received signal to behave almost randomly. To properly 
model this random variation, the channel complex gain c p (t ) can be modeled as 

random processes in t. Before we delve into developing random process 
representations of c (t) , let us first construct a basic multi-path channel where 

channel characteristics are time-invariant. 
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3.2 Time-Invariant Channel Model 


As first approximation, we will develop a model of multi-path channels that 
are time-invariant. Hence, all channel characteristics (complex gains, transfer 
functions, etc.) will be based on geometry alone. 

A geometric model of multi-path formation was used. Figure 3-1 shows the 
model schematic (not to scale). In shallow water transmissions, both surface 
and bottom reflections must be considered. Each channel has a direct path, and 



Figure 3-1 Channel geometrical model (not to scale) 


a number of surface reflected and surface-bottom-surface reflected paths. The 
single element and multiple elements are located near the bottom in our example. 
If the distance between the receiving elements is large enough comparing to 
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water depth, a planar wave assumption can be made. We can justify the planar 
wave assumption by the following arguments. 

In our model, the range is 3000m; the depth is 75m. The distance between 
array elements is set to half wavelength in our model. For our model, we will be 
using carrier frequency of 15kHz. At nominal sound speed of 1500m/s, the half¬ 
wave length is X /2 = 0.05m. With distance of 3000m, the target angle difference 
from one array element to the other is -0.001 degrees. If we have an array size 
of 30, the target angle difference between the top element and the bottom 
element at half-wavelength spacing is only -0.03 degrees. With this angle 
difference, the multiple-element array practically appears as a point when looking 
from the single element side. Therefore, the main axes of waves arriving to the 
array will be almost parallel to each other. Consequently, we can view those 
waves as planar if we assume two-dimensional acoustic wave propagation. 

Assuming planar wave pattern, Q p is the wave angle of arrival as shown in 
Figure 3-2. One major component of 
path delay is due to the path length 
differences, which we designated as 
delay 7- p . The other component is due 
to non-zero angle of arrival for paths 
other than the direct path. This delay 
will cause a phase shift between array 
elements. Let us denote the distance 
between array elements as d, which 



Figure 3-2 Angle of arrival 
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is normally set at half wavelength of the sound wave. The difference in arrival 


time is rfsl ^ p) as shown in 
Figure 3-2. 

This phase delay can be computed using 


<f> p = 2 n{ 


d sin <9 


2 . 




(3.2.1) 


where X c = 


fc 


C=1500 m/s is the nominal sound speed used in our calculation. 


Since the extra distance traveled will be directly related to the number of 
array element in between, the phase delay at m th array elements is (m- 1)^ 


where m = \,...M. 


Attenuation in acoustic channel includes both refection attenuation and 
water-absorption attenuation. Consequently, the magnitude of path gain c p is 
related to the attenuations caused by reflection and absorption. The magnitude of 
this path gain can be computed using path length / p as 


c. = 




(3.2.2) 


where l~ p is the loss factor due to reflection. It is chosen as 4l for a single 
bottom reflection. A(l p ) is the nominal acoustic propagation loss, A(l ) = l l '(a(f c )) lp . 


Assuming practical spreading, k=1.5. a(l p ) can be calculated using Thorp 
equation 


101oga(/ f ) 


on /, 2 

0+/r 2 ) 


+ + 2-75 x 1 O' 4 f 2 + 0.003 

( 4100 +//) Jc 


(3.2.3) 


where f c is in kHz and a(f c ) is given in dB/km. This equation is valid at or around 


f c =15 kHz, which is the carrier frequency chosen for the model simulation. 
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An impulse transmitted over a time-varying multi-path channel will appear 
at the receiver as a train of pulses due to multi-path. For our model, the multi- 
path channel impulse response is shown in the top graph of Figure 3-3. The 
impulse response shows path strength as function of delay. The first impulse 
arrival time is taken as the reference time of zero. The second and third arrivals 
are at 2.5ms and 10ms, respectively. Thus, the channel multi-path spread is 
10ms. The bottom graph shows the angles of arrival of the three paths. 



Figure 3-3 Multi-path properties of the channel 
Top graph in Figure 3-3shows the magnitude of the path gain \c p | 2 . The 
path gain c p is complex valued with phase Ac p = -lnf c T p , where x p is the path 
delay. We can express the path gain in complex form as c p =| c p \ e 27,ftTp . 
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For an M-element array, the channel transfer function can be expressed 
as 

CM) = (3.2.4) 

P =0 

where the path gains c mp are obtained from the original path gains c p by adding 
a phase shift 

c m. P = ,m = \,....M,p = 0,...P-\ (3.2.5) 

With time-invariant channel characterization in place, we can proceed to 
develop time-varying model which will be used in simulation. The time-varying 
behavior is modeled as a random process due to unpredictable nature of 
practical channels. 


3.3 Time-Varying Channel 


The time-varying channel transfer functions are given by 


P -1 


CM. <) = IX,(t)e 


-y 2 *7> P (o 


P =0 


(3.3.1) 


where c mp (t) is the time-varying channel complex gain corresponding to that 
given in equation (3.2.5), c m p (t) = c p (t)e~ Am ~'^ p =\c p (t)\e^ j2 ’ rfrTpi ' ) e~ Am ~'^ p . 

In the time domain, the impulse responses of the channels are 


C m ( T ’0 = Y. C m.p(0S(T-T p (t)) 


P= 0 


(3.3.2) 
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varies rapidly due to phase 


The complex gain c p (t) =| c p (t ) | e ~ j2 ^ T P u) 

change. The magnitude | c (/) | does not change significantly during the packet 
transmission interval; the delay r (/) changes slowly as well and we can assume 
that r p (t) * r p . Thus r p (t) can be approximated by a constant delay calculated 
from geometry. The equation (3.3.2) becomes 

c m ( T ^) = ^c mp (t)S(r-r p ) (3.3.3) 

P =o 

Although delay can be approximated as a constant, the phase term 
2nf c r p can change significantly with very small change of delay. This is because 

large f c will make even the smallest variation in delay a significant phase change 

Therefore, the complex gain | c p (t) \ e ~ j2 * fct '‘ ( ' ) will undergo rapid changes even with 

the slow changing |c p (/)| and r p (t). 

The complex gains c p (t ) varies rapidly in an unpredictable manner, and it 

is consequently modeled as a random process. Furthermore, in Rayleigh fading 
model, c p (t) is modeled as complex-valued Gaussian random process in the t 

variable, i.e. c p {t)~ N(0,a 2 p ) . From equation (3.2.5), it follows that c (/) is also a 
Gaussian random process. 

For a given transmission medium with multi-path multiple channels, these 
complex gains c (/) will form an m*p matrix. This matrix along with the path 

delay will completely represent the communication channels in our model. Let us 
call the m by p matrix the transmission matrix. 
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C(t) = 


(3.3.4) 


f c u (t) ... c l/r (/) > 

^mt (0 ’ ’ ' ^mp (0y 

This transmission matrix represents the complete knowledge of multi-path- 
multiple-channel communication channels. In discreet time, the transmission 
matrix can be written as 


f c u (nSt) 


C(nSt) = 


\ C n,M S 0 

where St is the sampling interval in time. 


c lp (nSt 

c mp ( nSt )j 


(3.3.5) 


3.3.1 Model of the Channel Variation 

When implementing channels from the geometric model, c m is 

constructed from physical values such as delay time, arrival angle, attenuation 
etc. With the value of c known, all channels can be simulated and all filter 

values can be calculated. Filters that are calculated based on perfectly known 
channel c m will produce received signal SNR that agrees very closely to the 

theory predicted values. However, in practical communications scenarios, the 
channels are not perfectly known. The channel coefficients have to be estimated 
using various means. The resulting c (t) is used to calculate filter values. 

Filters that are calculated based on estimated channel coefficients c mp (t ) will 
generate errors. The goal of the simulation is to simulate system performance int 
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eh presence of channel estimation errors, and to quantify the performance 
degradations from the ideal. 

3.3.2 Auto Regressive Model 

The channel variations can be modeled in a variety of ways. Auto 
regressive model represents one-way of obtaining the randomly varying c mp (/). 

Auto regressive model recursively generates the process at discrete intervals in 
time starting with an initial value. Two types of auto regressive models, AR1 and 
AR2 will be considered. 

In AR1 model, instead of deterministic^ , we generate recursively a 
sequence of c p (nS t) as sampled points of cAt) . The value of St defines the 
resolution of c p (t) : the smaller the value otSt , the finer the resolution. In order to 

capture the variability of the channel, St must be much less than the channel 
coherence time. In most underwater acoustic channels, the coherence time is on 
the order of 1 second or more. Therefore, time resolution must be less than 0.1 
second (In our model, we choose St equaling symbol time interval, which is 
1/5000 = 0 . 00025 ). The recursive equation of AR1 model is 

c p (nSt+St)=a 0 c p (nSt)+^ p (nSt), n=0,l,2... (3.3.6) 

where a 0 is a real constant that determines how fast the channel changes and 

£ (nSt) is the sequence of sampled points of a complex-valued, zero-mean white 

Gaussian random process that is independent of c p (nSt). 
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a 0 is related to the Doppler spread of the channel which determines the 
rate of time variation. If 3dB bandwidth of Doppler Spectrum is 2 f d , then 

a 0 = e 2 ” m (3.3.7) 

^ (nSt) variance is calculated as 

a l=( l - a2 o )<*l (3.3.8) 

Where cr 2 p = £'||c /) (/)| 2 | is the power of the path channel coefficients. 


The initial term of the c (nSt) is the same that we used in the deterministic 

model. It is calculated using geometric relationships. With that initial value, we 
can recursively generate the rest of sequence. The variance is also determined 
from this value as cr =| c p (0) | 2 . 

With random sequence (c p («£t)j generated, the next step is to generate 

random matrices C. In the deterministic model, C is an m by p matrix with 
elements consisted of complex gain c m . (3.2.5) defines the relationship between 

c and c . In a time-varying model, the matrix C(nSt) is time-dependant, with 
elements values c m p {ndt ) 


-y(m- \)<f> 


c m J0) = c p (0)e 


c(25t) = c(2Si)e 




= ^,a <: c r (S^)+m)y , ^" i •=a,c„ t (Sl) + 4(Sl)e , ^" , • 


Auto regressive model of order one (AR1) is conceptually simple, but the 
resulting time variation maybe overly pessimistic for a practical channel. It tends 
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to exaggerate the changes that occur in the channel. Auto regressive model of 
order two generates a better-behaved channel which maybe closer to a realistic 
acoustic channel. 

The AR2 model can be generated in discrete time using the recursion 

c p [(n +1)<&] = a 0 c p [nSt] + a x c p [(n -1 )6t] + % p \ nSt] (3.3.9) 

The parameters a 0 and a, are real constants that can be calculated from the 

continuous time parameters £, and f n , withd; being the damping coefficient and 

f n the natural frequency which is related to Doppler frequency through 

/3 rfB =/ n \/0-2# 2 ) + Vl + (l- 2 ^) f (3-3-10) 

Damping coefficient is dependant on the physical channel and can be either 

over-damped (>0.5) or under-damped (<0.5). The relationship between 
continuous-time parameters and discreet-time parameters are 

a o = 2e-*- T - cos (y/T^o.T,) 
a, —e*** 

In the expression (3.3.9), ^ p (n) is a white process with 

variance cr^ =cr 2 p (\-al -a x -2a 0 a x p) , where p = a Q /(I—is the one-step 

correlation coefficient. And P is the power of output fading process 

° 2 P =E{\c p (t) | 2 } (3.3.12) 

Thus, the sequence [c p {nSt)\ can be generated from the recursive 

relation(3.3.9). We can then follow the same steps as in AR1 model to generate 
the 3-D matrix using the following 
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c,JO ) = c,(OK y< - w ' 

C .„(2*) = (a.S(*)+o,c,(0)+^(*))c■'"‘^=a 0 c.. p (*)+<• 1 ^,,(0)+f(&K J< "" ,, '’ 
c„,(3*) = (a„c p (2<St) 4- a,c f 


3.4 Channel Estimation 

There are two types of errors that arise in channel estimation. One is 
caused by measurement noises and the other is caused by the lag between the 
time of measurement and the time of transmission. Due to the low speed of the 
sound propagation underwater, time-lag induced error may be the dominant 
component at high SNR. 

There are two main approaches to channel estimation. One is to assume 
a model for the channel and then use the model to derive an adaptive estimator. 
The other is not to assume any model and adaptively estimate channel from the 
received signal only. The first approach requires a reasonably correct model to 
be effective, while the second approach does not rely on any assumptions about 
the channel. However, the first approach will give us means to predict the 
channel, while the second approach will only allow estimation based strictly on 
observations. In what follows, we will concentrate on the model based predictor. 
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3.4.1 Model Based Predictive Estimator 


Assuming that the dominant source of estimation error is time lag, we 
neglect the measurement noise. Therefore the main source of the error is 
channel variation over the time difference^ = A^t, between the time when the 

signal pass through the channel and the time the estimation is performed. The 
MMSE channel gain estimate, given the previous observations, is 

c/ii^O = ^{c/i^/)|c,((ii-^)^0,.-^(A),^(0)} (3.4.1) 

If we assume an AR1 model of the channel variation and use discrete sample 
points nSt to replace continuous time t , we have 

c p (nSt) = E { a 0 c p (nSt ) + £ (nSt) \ c p ((n -N d )8t),...c p (St\c p (0)} (3.4.2) 

Using the expected value equivalency equation, it follows 

c p (nSt) = E { a 0 c p (nSt) \ c p ((n - N d )St),...c p (St),c p (0)} + E{g p (nSt) | c p ((n - N d )8t),...c p (5t),c p { 0)} 

The second term in above equation is zero based on our noise assumption (zero 
mean white noise). Substitute (3.3.6) and treat mean of £ as zero, we have 

c p (nSt) = a 0 E{a 0 c p ((n-l)St) \ c p ((n-N d )St),...c p (St),c p (0)} (3.4.3) 

Using recursion, we have the delay estimation equation with N d 5t delay 

c p (^O = ^^{^/(«-^J^OIs((«-^)^),...c/^),^(0)} (3.4.4) 

The expected value of c p ((n-N d )St) conditioned on a priori observed 

c p ((n- N d )St) is itself. If follows then 

c p (nSt) = ao“c p ({n-N d )St) (3.4.5) 
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From above equation, a sequence of jc p (n£t)} can be generated based on 
sequence of [c p (nS t)j. 

In order to simulate the performance with the presence of the estimate 
delay, the signal is passed through channel with each possible c mp (nSt ) and the 

received signal is processed using filters calculated based on estimated c (nSt). 

The resulting SNR values are then averaged over all possible channel 
realizations. The final mean value is the expected SNR in the presence of 
estimation error caused by estimator delays. 

If the AR2 model is used and we neglect the measurement noise, the 
estimator is 


c p {ndt) = a 0 c p ({n - 1)*) + a A c p {{n - 2 )St) (3.4.6) 

given perfectly delayed observations 

Cp((n ~ N d )St) = c p ((n - N d )5t ) (3.4.7) 


and 


c p ((n -N d +1 )St) = c p ((n-N d + 1 )5t) (3.4.8) 


3.4.2 Delayed Estimator 

The second approach is not based on any particular model. The simplest 
form of such estimation is to estimate by using the previously observed channel 
complex gains 

c p {nSt) = c p {{n - N d )5t) (3.4.9) 
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This is the simple time-delayed estimator which we will be using in our simulation. 

The special case for this type of estimation is when the observation is 
instantaneous, i.e. there is no delay in estimated values and the true values. This 
is the ideal case where each estimate is 

c p (nSt) = c p (nSt) (3.4.10) 

This ideal case can be simulated simply by equating the true channel complex 

gains with the estimated value. For other delayed cases, the estimation delay will 
cause some errors. 
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4.0 Performance Analysis 

4.1 Simulation Preliminaries 



Figure 4-1 System Block Diagram 

The system was implemented in MATLAB basic code. The MATLAB 
software block diagram is shown in Figure 4-1. 
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The data stream is randomly generated sequence of 0’s and 1’s. This data 
stream is then divided into 2-bit units and each is mapped into 4-PSK symbols on 
the complex plane. The symbol interval is T . The symbol stream is then fed into 
wave generator to generate complex waveforms that will be passing through the 
channels. The basic waveform that will carry the data signal is chosen to be the 
square-root-raised-cosine waveform with varied roll-off values a and truncation 
lengths. Figure 4-2 shows the example of the raised-cosine waveform and its 
frequency response for a values of 0.1,0.5 and 1. The a value in the model is 
chosen to be 0.1, which corresponds very closely to an ideal low-pass filter. 



[T] 


Figure 4-2 Raised cosine waveforms 
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A number of symbols generated comprise as one data packet. The data 
packet is show in Figure 4-3. The duration of entire data block is NT , where N 
is the number of symbols in one data packet. One data packet at time is then 
passed through time-varying channels. 


Probe 

—► 


T 


delay 


Data 


N- 


i 


Figure 4-3 Data packet schematic 

There are two filter blocks. One filter block will process before, and one 
after the complex waveforms passing through the channels. The first filter serves 
as the transmitting filter and the second filter is the receiving filter. Those two 
filters will be calculated depending on the direction (uplink or downlink) or the 
focusing scheme (either with no focusing, one-sided focusing or two-sided 
focusing). Inputs to the filter calculation block also include the channel 
information either deterministically calculated or stochastically estimated. 

Channels are first constructed using the geometric model described earlier. 
Then the transfer function and impulse response of the channel are calculated 
inside the channel impulse and frequency response block. The resulting impulse 
response is used to simulate the transmissions through channels in the time- 
domain. The effect of varying channels is simulated using auto regressive model 
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of order one (AR1) or auto regressive model of order 2 (AR2), which are 
implemented in channel impulse and frequency response block. Varied channel 
characteristics are generated recursively from the initial values which are 
calculated from the geometry. 

Channel Estimation Simulator block simulates the estimation process 
using a non-model based, simple-delay estimator. The results of the estimation 
are then fed into Filter Calculation block to calculate filters. These calculated filter 
values are the inputted into the filter blocks to process the signal waveforms. 
Finally, the processed waveforms are sampled to generate received symbols, 
which are then processed to evaluate the signal-to-noise (SNR) ratios. The SNR 
for one channel realization is the time-average over the duration of the packet. 

Table 4-1 summarizes model parameters for the simulation. Simulation 
runs are conducted using AR2 model to simulate channel variations. The 
damping factor of the channel is set to be £ = 0.5. Three Doppler bandwidth 
conditions were simulated. They are 0.01 Hz, 0.1 Hz, and 1 Hz. The estimator will 
estimate channels using the non-model based, simple time-delay scheme with 
three delay assumptions: ideal with no delay, 10ms delay and 1000ms delay. 
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Table 4-1 Model parameters 


Parameter Name 

Parameter Value 

Range of the model 

3000m 

Depth of the array elements 

75m 

Distance between arrays 

m 

Number of channels 

4, 32 

Number of Paths/Channel 

3 

Nominal speed of sound 

1500m/s 

Sampling Frequency 

20000 Hz 

Carrier Frequency * 

15000 Hz 

Symbol Rate 

5000 Hz 

FFT Sample Points 

8192 

Length of Data Packet 

1000 

T (symbol interval) 

0.2ms 

Bit rate (4-PSK) 

10 kbps 

Doppler Bandwidth 

0.01 Hz, 0.1 Hz, 1Hz 

Estimation Delay 

10ms, 1000ms 


*Note: Carrier frequency was used only to calculate the attenuation delay. 


47 






























In each Doppler bandwidth condition, 4 channel and 32 channel 
performances were simulated and graphed for one-side focusing and time 
reversal. Simulation runs are conducted to compare the performance of one-side 
focusing to that of time-reversal in various conditions of Doppler bandwidth. The 
results are presented in the Sections 2, three and four. They are organized 
according to the channel Doppler bandwidth condition. We will start with the best 
condition first where Doppler spread is approximately 0.01 Hz. 

The relationship between performance and array size were also 
investigated for the time-reversal and one-side focusing. The results are 
presented in Section 5. 

Normalized Doppler spread is defined as the non-dimensional product of 
the channel Doppler spread and the estimation delay. It determines the 
difference between the estimated and the true channel characteristics. This 
fundamental relationship is demonstrated and discussed with simulation-run 
results in Section 6. 
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4.2 Doppler Bandwidth 0.01 Hz Channel Performance 
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Figure 4-4 M=4 Doppler bandwidth 0.01 Hz performance 


Doppler bandwidth 0.01 Hz corresponds to the channel coherence time of 
~100s. This is the case where the channel is varying slowly (on the order of 
magnitude of minutes). Figure 4-4shows the performance for the 4-channel 
up/down link focusing as well as that of the time-reversal. Figure 4-5shows the 
performance of both schemes for the 32-channel case. 
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Figure 4-5 M=32 Doppler Bandwidth 0.01 Hz Performance 
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As may be expected, at the 
Doppler spread of 0.01 Hz, the 
performance does not deviate very much 
from the optimal results predicted by 
theory [3]. In this optimal condition, we 
can see that the performance of the 
spatiotemporal focusing is far superior to 
that of the time-reversal. Such superiority 
is more salient for the smaller array size 
(4-channel). With 4-channel array size at 
20dB E/NO noise level, focusing achieves 
17dB SNRout while time-reversal only 
3dB, which is below the level required for 
detection. One conclusion we can draw is 
that the time-reversal performance with a 
4-channel array is not satisfactory 
whereas a system with focusing 
implemented performs quite well. Figure 4-6 and Figure 4-7 shows the scatter 
plots of the two schemes at input E!N 0 = 20 dB . The time-reversal plot barely 

shows 4-PSK patterns while the focusing scheme clearly shows a clean pattern. 

In addition, time-reversal is shown to have performance saturation while 
spatiotemporal focusing does not. As observed in [3], the performance of time- 
reversal saturates whereas the performance of the optimal focusing will approach 



Figure 4-6 M=4 Time Reversal 



Figure 4-7 M=4 Focusing 
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oo as E/N 0 approaches a>. Such saturation in performance is shown for both 

32-channel and 4-channel array sizes. Although the time-reversal performance 
increases significantly when the array size increases from 4-channel to 32- 
channel, it saturates at 15 dB. There is no such saturation phenomenon in 
focusing for both the 4-channel and 32-channel arrays. 

Third, the performance of the 32-channel focusing does not increase very 
much (3-4dB) from the 4-channel case. Evidently, the spatiotemporal focusing 
performance is not sensitive to the array sizes because it has eliminated ISI even 
for the small size arrays. This can be advantageous when applications require 
limited array size. Time-reversal performance, on the other hand, depends solely 
on the array size as large performance increase is gained by going from 4- 
channel to 32-channel. We can conclude that the performance of focusing is 
generally superior to that of the time-reversal and even more so when the array 
size is small. 

4.3 Doppler Bandwidth 0.1Hz Channel Performance 

Doppler bandwidth of 0.1 Hz corresponds to the channel coherence time 
of 10s. In other words, channels with 0.1 -Hz Doppler spread will vary on the 
order of magnitude of tens of seconds. With the propagation delay of 1 second, 
perhaps we will see some performance degradation due to such delays. Figure 
4-8 shows the 4-channel array performance and Figure 4-9 shows the 32- 
channel array performance. 
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SNRout(dB) 



Figure 4-8 M=4 Doppler Bandwidth 0.1Hz Performance 



Figure 4-9 M=32 Doppler Bandwidth 0.1Hz Performance 



























































First, we notice again there is no discernable performance saturation in 
the focusing performance for both the 4-channel and 32-channel arrays. 

Focusing performance in the presence of estimation error improves as E/NO 
increases, albeit at a gradually reduced rate. This lack of performance saturation 
is in contrast with that of the time-reversal, which suffers saturation for both small 
and large size arrays. 

From the result we also see that channel with Doppler spread of 0.1 Hz 
will affect the performance of spatiotemporal focusing for both the 4-channel and 
32-channel arrays. The degradation increases with the delay. For 4-channel 
array, delay time of 10ms and Is causes performance degradation. For 32- 
channel array, performance degradation can only be seen for the delay of Is. 
There is no perceptible degradation forthelOms delay. Hence, the sensitivity to 
channel estimation error decreases with the array size. In addition, time-reversal 
appears less sensitive to the estimation error. 

Even with the performance degradation, the focusing still outperforms the 
time-reversal by more than 10dB (4-channel array) for moderate input E/NO 
levels. At a higher E/NO levels, the margin is even larger. For the 4-channel 
array size, performance gained (>13dB) by focusing seems to fully justify the 
added complexity. The 32-channel array focusing performance, while degraded, 
is better than that of the time-reversal albeit at a lesser margin (5 for moderate 
E/NO level and 10dB for higher E/NO level). At a moderate E/NO level, the 
performance advantage of the spatiotemporal focusing over the time-reversal 
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with large array size may not entirely warrant the increased complexity that 
comes with spatiotemporal focusing. 


4.4 Doppler Bandwidth 1Hz Channel Performance 

Doppler bandwidth of 1 Hz corresponds to channel coherence time of 1 
second. This is the worst scenario in terms of channel Doppler spread condition. 
In this condition, the channel varies rapidly (order of magnitude of seconds). We 
should expect that with any delay on the order of one second (channel 
coherence time) will lead to severely degraded performance. Figure 4-10shows 
performance for the 4-channel array and Figure 4-11 shows the performance for 
the 32-channel array. 



Figure 4-10 M=4 Doppler Bandwidth 1Hz Performance 
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Figure 4-11 M=32 Doppler Bandwidth 1Hz Performance 


We observe that that both the focusing and time-reversal suffers 
significant performance degradation for the Is estimation delay case. This 
performance degradation is caused by the estimation delay that is on the order of 
channel coherence time. The error caused by this large delay is irreducible 
regardless of number of array elements used or input E/N 0 . The dominant error 

here is caused by the estimation delay. At a high E/N 0 level and a large array 

size, the estimation error is entirely due to this irreducible error and the 
performance tends to saturate for both the time-reversal and focusing even as 
the input power increases to+ 00 . Such saturation occurs for both small and large 
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arrays. For 10ms estimation delay where the dominant error is not induced by 
such delay, focusing has no discernable performance saturation while time- 
reversal suffers saturation caused by dominant ISI-induced errors for both small 
and large array sizes. 

Additionally, we will see that the masking effect also determines general 
shapes of performance curves. We have seen degraded performance curves 
gradually falling off theoretical predictions at high E/NO level. Notice that at a low 
E/NO level, the reduction isn’t as large. This phenomenon is due to the same 
principle of dominant error masking. The total output noise level, which including 
both the noises that caused by estimation error and the inherent channel noise, 
will only reflect the dominant noise level. At very high E/N 0 level, the dominant 

noise source is the estimation error; at low E/N 0 level, the dominant noise 
source is the inherent channel noise. Therefore, we will not see much reduction 
in output SNR for lower E/N 0 level even with estimation delays. Due to the 

same reason, the time reversal scheme does not suffer significant reduction from 
its theoretical prediction in most cases because it has significant error caused by 
ISI (dominant noise) and ISI-induced error will mask the error caused by 
estimation error. 
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Third, again as in previous Doppler 
condition, one-side focusing performs better 
than the time-reversal even with the 
presence of modest estimation delay (10ms). 
In small array size (4 channel), this 
performance difference is quite large 
(>12dB), as can be seen from scatter plots 
shown in Figure 4-12 and Figure 4-13. They 
show that, at an array size of 4 and 
input E/N 0 = 20 dB , the performance of one- 

side focusing is much superior to that of the 
time-reversal. For a larger array size, the 
difference is decreased somewhat (5dB) but 
still significant. 



Figure 4-12 1-side focusing 
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Figure 4-13 Time Reversal 

4.5 Performance Sensitivity to 
Array Size 

Simulation runs were conducted to investigate the effect of channel array 
size on performance. This set of simulation runs was executed using AR1 model 
to simulate the variation of the channel. Notice that the resulting output SNR is 
lower (3-4dB) than what would have been if AR2 model were used. Since the 
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purpose is to investigate the general trend between array size and performance, 
the absolute values of output SNR will make little difference. Estimator used 
model-based predictive estimation scheme. The estimation delay is 10ms. The 
channel input E/NO is 20dB. 



Figure 4-14 Performance vs. channel size at Doppler frequency 1Hz 


Figure 4-14shows the effect of array size on output SNR. The input E/N 0 

is at 20 dB. We can see that if there is no delay, the performance curve matches 
theoretical prediction [3]. And the performance degradation at 20dB is the same 
for all array sizes. In addition, it can be seen that the focusing is less sensitive to 
array size than time reversal. We gain 5dB when array size is increased from 4 to 
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35; on the other hand, we gain 12dB over the same range. In this regard, the 
focusing is superior to time reversal in that it does not depend on array size for 
optimal performance. Even with moderate array size (5), a very good output SNR 
(>12 dB) can be obtained. Time reversal, however, requires array size of almost 
30 to obtain similar performance. 

Furthermore, we observe that the more severe the limitation of array size 
is, the better suited for the spatiotemporal focusing technique over time reversal. 
In other words, the benefit of spatiotemporal focusing is more salient for smaller 
array size. We can see that at array size of 4, the performance advantages of 
focusing over time-reversal is 13dB, while at array size of 32 the performance of 
focusing overtime-reversal is 5dB. 

Finally, the performance of focusing will saturate at certain array size. 

From discussion by Stojanovic [3], we know that time reversal performance will 
also saturate at certain array size (40). Therefore, increasing array size over 
certain limit will not enhance the performance. The time reversal relies only on 
array size to improve performance. In this regard, spatiotemporal focusing is 
better than time-reversal because it does not rely solely on the array size to 
improve performance. 

4.6 Normalized Doppler Spread 

Fundamentally, performance degradation is caused by the difference 
between the estimated channel characteristics and that of the true channel. The 
difference can be caused by either fast-varying channel or channel estimation 
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delay. A normalized Doppler spread is defined as f d normal = f d T dd , where f d is the 
Doppler spread of the channel and T del is the estimation delay. The performance 
level at different normalized Doppler spread is shown in Figure 4-15. 



Figure 4-15 Performance vs. Normalized Doppler Spread 


We can clearly see that when normalized Doppler spread is lower than 0.1 
(-1 on logarithm scale), the performance levels are approximately equal. This is 
true for both time-reversal and spatiotemporal focusing. Both the 4-channel and 
32 channel array display this property as well. Normalized Doppler spread of 0.1 
corresponds to either 1Hz Doppler spread with 10ms delay or 0.1 Hz spread with 
1 second delay. This non-dimensional normalized Doppler spread can be viewed 
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as a measure of difference between the estimated and true channel coefficients. 
It is the determining factor for the performance degradations. 
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5.0 Conclusions and Future Research 

5.1 Future Work 

The estimator implemented in both the AR1 and AR2 models were model 
based. Although adequate for analysis purposes, such estimators rely on the 
correctness of the model that describes the channel. In practice, the correct 
model is not known. Thus, a more practical way to approach the estimation 
problem is to devise an adaptive estimator algorithm that does not depend on the 
channel model. Instead, the estimator computes the channel complex gains 
based on the received waveforms and known training signals. 

Experiments should also be conducted to validate spatiotemporal focusing 
techniques in the shallow water environment. The experiment design should also 
allow for testing of time reversal for comparison purpose. Some of the programs 
used in the simulation can be used for data processing in such an experiment. 
Examples of such programs are filter calculations, data and wave generation, 
data sampling and SNR comparison computations. A practical estimator 
algorithm is needed for the experimental data processing since we can not 
assume a channel model in a realistic experiment. 

Finally, analytical expressions for output SNR in the presence of 
estimation errors should be derived. Analytical expressions for output SNR 
without estimator errors exists [3]. Following the same approach, analytical 
results may be derived. The expression may have a recursive or closed form. 
Only with analytical results can we properly conclude the initial chapter in 
spatiotemporal focusing investigation. 
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5.2 Conclusion 


The goal of the spatiotemporal processing is to eliminate ISI while 
maximizing output SNR. One-side and two-side focusing techniques fulfill this 
goal by providing a flexible means to eliminate ISI while maximize output SNR. 
Simulation had been conducted to evaluate the performance of spatiotemporal 
focusing as well as the performance of time-reversal. Spatiotemporal focusing 
has proven to be a superior alternative to time-reversal. It achieves higher output 
SNR with modest array size; its performance does not saturate while that of the 
time-reversal does; it gives the system designer the flexibility to tailor complexity 
according to the application requirements. The performance improvement 
margin of the spatiotemporal focusing over the time-reversal is especially salient 
with the small array size. At the expense of moderate increasing of complexity, 
spatiotemporal focusing eliminates ISI thus achieves optimal performance level 
with array size large or small. 

Fundamentally, performance degradation is caused by difference between 
estimated and true channel characteristics. The degree of difference can be 
represented by a non-dimensional normalized Doppler spread. When this 
normalized Doppler spread is below 0.1, the performance degradation from the 
ideal is negligible. From 0.1 to 1, the dominant error is increasingly caused by 
the channel variations and associated large estimation delays. Spatiotemporal 
focusing and time-reversal will both suffer additional performance degradations. 

To fully realize the promise of spatiotemporal focusing approach, 
additional processing tools must be utilized when there is significant degree of 
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difference between the estimated and true channel characteristics. When 
normalized Doppler spread is relatively large (>0.1), ISI increasingly ceases to be 
the dominant error contributor while the delay-induced error increasingly 
dominates. Its dominance makes the benefit of ISI-elimination unrealized 
(masking effect). Additional processing tools are needed to reduce estimation 
delays, especially for fast varying channels. 

Predictive algorithm is a effective tool to reduce the estimation delays. 

With the predictive processing, estimation delay will depend on the quality of 
predictions and not on the estimation delay time. By reducing the effective 
estimation delays, the benefit of spatiotemporal focusing can be fully recovered. 
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function simRunAR2(channel_number,side l dir,est_delay,res,N l snr_v,nbit) 

range=3000; 

depth=75; 

E=1; %bit energy 
Ns=4; %sample per symbol 
Tsym=1/5000; %symbol interval 
s_rate=Ns*(1/Tsym); %sampling rate 
T=1/s_rate; %smapling interval 
fc= 15000;% carrier frequency 
fs=s_rate; 

M=4; %4-ary signal 

n__mean=0; 

trunc=16; 

fd=1/Tsym; 

array_d=(1500/fc)/2; 

max delay=0.01; %longest path delay time 
alpha=0.1; 

gtSingle=sqrtrcos(alpha,Ns,trunc); 


%input block 

% side=1; %0:time-reversal 1 :onesided focusing 2:twosided focusing 

% dir=0; %direction of the transimission 0 is uplink 1 is downlink 
% channel__number=4; 

%nbit=1000; %1000 symbols 
Nd=nbit/2; 

%snr_v=[-5 0 10 15 25 35]; 

%estimate machine 
%est_delay=0; 
ndiff=est_delay/res; 
total=ndiff+N; 


<^******************************************************************************** 


time=max_delay+Nd*Ns/fs; 

min_df=1/time; 

minFlength=fs/min_df 

freq_length=2 A nextpow2(minFlength); 

padn=(freq_length-2*trunc*Ns)/2; 

gt=[zeros(1 ,padn) sqrtrcos(alpha,Ns,trunc) zeros(1 ,padn)]; 
gf=fftshift(fft(gt,freq_length)); 

xt=[zeros(1 ,padn) rcos(alpha,Ns,trunc) zeros(1 ,padn)]; 

xf=fftshift(fft(xt,freq Jength)); 

xf=abs(xf); 

%data generation 
datastream=randint(2,Nd); 
for m=1 :nbit/2 

a=int2str(datastream(1 ,m)); 
b=int2str(datastream(2,m)); 
binstr=[a b]; 
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data(m)=bin2dec(binstr); 

end; 

dn=exp(j*2*pi.*((2*data+1)./2)./M); 


[CH_char,CC]=channel_construc(channel_number,3000,75,array_d,fc,fs); 

%[CH_f ,GMA]=channel_response_alt(channel_number, CH_char,freq_length,fs, dummy, fc); 

[Cmf3d,GMA2d,Cmf3dhat,GMA2dhat]=DTchannel_responseAR2(channel_number,CH_char,freq 

_length,fs,fc,est_delay,res,N); 

% Cmf3d=Cmf3d(:,:,ndiff+1 itotal); 

% GMA2d=GMA2d(ndiff+1 dotal,:); 

% Cmf3dhat=Cmf3dhat(:,:,1 :total-ndiff); 

% GMA2dhat=GMA2dhat(1 :total-ndiff,:); 

for n=1 :length(snr_v) 
datapoint=snr_v(n) 
loop=0; 

for k=1 :total-ndiff 
loop=loop+1 
CH_f=Cmf3d(:,:,k); 

GMA=GMA2d(k,:); 

CH_fhat=Cmf3dhat(:,:,k); 

GMAhat=GMA2dhat(k,;); 

N0=E/(10 A (snr_v(n)/10)); 

%using estimated value for filter generation also input Swf 
[GO_f,G_f,K_f]=filter_calculation(E,NO,GMAhat,CH_fhat,xf,gf,freq_length,dir,side); 

%time domain filter 
gO_t=ifft(fftshift(GO_f)); 
for i=1:channel_number 
gf_t(i,: )=ifft(fftshift(G_f(i,:))); 
end; 
x=dn; 

if(dir==1) %downlink 

U=waveGen(channel_number,dn,gf_t,Ns); 

R=channel(U,CH_f,E,snr_v(n),n_mean); 

Y=processor(R,gO_t,freq_length); 
elseif(dir==0) %uplink 

U=waveGen(channel_number,dn,gO_t,Ns); 

R=channel(U,CH_f,E,snr_v(n),n_mean); 

Y=processor(R,gf_t,freq_length); 

else r - 

disp('error in NewTest, up or down?'); 
end; 

%sample 

delay=freq_length/2+1; 
y=sig_map(Y, delay, Ns, Nd,0); 
if(side==0) 

% %normalize energy increase due to channel addition 

% c=max(abs(ifft(GMA,freq_length))); 

% y=y./c; 

[snr_out(k,n),diff]=SNROUT(x,y); 

else 

[snr_out(k,n),diff]=SNROUT(x,y); 

end; 
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end; 

end; 

GMAini=GMA2d(1,:); 

if(total==1) 

temp=snr_out; 

else 

temp=mean(snr_out); 

end; 


if(side==1) 

[SNRpredict]=SNRcompare1 jnoPlot(freqJength,xf,GMAini,snr_v;temp); 
else 

[SNRpredict]=SNRcompare2_noPlot(freqJength,xf,GMAini,snr_v,tennp); 

end; 


if(side==1) 

[SNRpredict]=SNRcompare1_noPlot(freq_length J xf l GMAini l snr__v,temp); 

else 

[SNRpredict]=SNRcompare2_noPlot(freq_length,xf,GMAini,snr_v,temp); 

end; 

switch side 
case 0 
if(dir==0) 

save outputOO.mat snr__v snr_out SNRpredict -ascii -double -tabs 
elseif(dir==1) 

save outputOI .mat snr_v snr_out SNRpredict -ascii -double -tabs 
else 

disp(’error in simRun’); 

save outputerrO.mat snr_v snr_out SNRpredict -ascii -double -tabs 
end; 
case 1 

if(dir==0) 

save outputlO.mat snr_v snr_out SNRpredict -ascii -double -tabs 
elseif(dir==1) 

save outputl 1 .mat snr_v snr_out SNRpredict -ascii -double -tabs 
else 

disp('error in simRun’); 

save outputerrl.mat snr_v snr_out SNRpredict -ascii -double -tabs 
end; 
case 2 

if(dir==0) 

save output20.mat snr_v snr_out SNRpredict -ascii -double -tabs 
elseif(dir==1) 

save output21 .mat snr_v snr_out SNRpredict -ascii -double -tabs 
else 

disp('error in simRun’); 

save outputerr2.mat snr_v snr_out SNRpredict -ascii -double -tabs 
end; 
otherwise 

save outputanyway.mat snr_v snr_out SNRpredict -ascii -double -tabs 
end; 
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function [C.gama,Chat,gamahat]=DTchannel_responseAR2(n,CH_char,f_l,fs,fc,delay,res,N) 
%delay is the estimate delay 
%res is the delta T that used 

%N is the number of the sample averages that need to be computed 
%total number of the pages is ndiff+N 

f_dop=1/2; 

delT=res 

ndiff=delay/res; 

delTlength=ndiff+N; 

df=fs/(f_l); 

f=-fs/2:df:fs/2; 

f=f(1:length(f)-1); 

% N=f_l/2; 

% f=linspace(-N,N,f_l)/N*fs; 

% f=linspace(0,fs,f_l); 
path=3; 

CP=CH_char(:,1); 

P=CH_char(:,2); 

TAU_rel=CH_char(:,3); 

tmp=CH_char(:,4); 

%nomalizing cp 

s=sum((abs(CP)). A 2); 

factor=(1/n)/s; 

CP=sqrt(factor).*CP; 

xi=0.5 %damping factor 

fn=f_dop/(sqrt((1-2*xi A 2)+sqrt(1+(1-2*xi A 2) A 2))) 

wn=2*pi*fn; 

%aO=exp(-2*pi*f_dop*delT); 

aO=2*exp(-xi*wn*delT)*cos(sqrt(1-xi A 2)*wn*delT); 

a1=-exp(-2*xi*wn*delT); 


power=mean(CP. A 2); 

%sigma_p=power-(mean(CP)) A 2; 

sigma_p=power; 

rho=a0/(1-a1); 

sigma_zita=(1-aO A 2-a1 A 2-2*a0*a1*rho)*sigma_p; 

r=sqrt(sigma_zita)*randn(1,delTlength); 

theta=rand(1 ,delTlength)*2*pi; 

%zita=[1; 1 ;1 ]*(r.*exp(j*theta)); 
zita=r.*exp(j*theta); 

kaO=aO A ndiff; 

kal =-abs(a1 A (ndiff-1)); 


for m=1:n 
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for p=1 :path 

Phi(m,p)=exp(-j*(m-1 )*P(p)); 

Coeff(m,p)=CP(p)*Phi(m,p)*exp(-j*2*pi*fc*TAU_rel(p)); 

end; 

end; 

%CP3 is 3-d matrix, add delta t dimension 
CP3(:,:,1)=Coeff; 

CP3(:,:,2)=Coeff; 

for i=1:delTlength 
recursions 


% A0=a0. A [i-1 +ndiff-1 ;-1:0]; 

% X=zita(1;ndiff+i-1); 

% CP3(:,;,i+1 )=aO A (ndiff+i-1 )+A0.*X*(repmat(Phi,1 ,ndiff+i-1)); 

% CP3ealier(:,:,i+1)=aO*C 
% CP3hat(:,:,i+1) 

CP3(: 1 : t i+2)=aO*CP3(:,:,i+1)+a1*CP3(:,:,i)+Phi*diag(zita(i)); 

CP3hat(:,:,i)=CP3(:,;,i); 

end; 


for i=1:N 
count=i 
for m=1 :n 

C(m,:,i)=CP3(m,1,i+1+ndiff)*ones(size(f)); 
Chat(m,;,i)=CP3hat(m,1,i)*ones(size(f)); 
for p=2:path 

C(m,:,i)=C(m,:,i)+CP3(m,p,i+ndiff)*exp(-j*2*pi*fTAU_rel(p)); 

Chat(m,:,i)=Chat(m,:,i)+CP3hat(m,p,i)*exp(-j*2*pi*f*TAU_rel(p)); 

end; 

end; 

gama(i,:)=zeros(1 Jength(f)); 
gamahat(i,:)=zeros(1,length(f)); 
for m=1:n 

gama(i,;)=gama(i,:)+(abs(C(m,;,i)). A 2); 

gamahat(i,:)=gamahat(i,:)+(abs(Chat(m,:,i)). A 2); 

end; 


function [Ch_char,CC]=channel_construc(n,R,D,d,fc,fs) 
%cconstruct channel gemetrically and output CH_char, CC 


%contruct channels 
%n: channel number 
%R: range between arrays 
%D: depth of array 
%d: array interval (vertical) 


%CC: output is three dimensional array, row is path, column is [Attenuation Total_delay] 
%third dimension channel 
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%CH_char: row dimension Path. Column dimension 
[Attenuation, Phi_p,path_delay,delay_causedBy_Phi] 
%total_delay=path_delay+delay_due_to_Phi_p 

fc=fc/1000; 
k=1.5; 
c=1500; 

r_fac=1/sqrt(2); %reflection factor 
lamda=c/(fc*1000); 

T=1/fs; 

a_fc=0.11 *fc A 2/(1 +fc A 2)+44*fc A 2/(4100+fc A 2)+0.000275*fc A 2+0.003; 
a_fc=10 A (a_fc/10); 

%path one direct path 
L1=R; 

T1=1; 

offset=L1/c; 
tau1=L1/c-offset; 
thetal =0; 

CP1=T1/sqrt((L1/1000) A k*a_fc A (L1/1000)); 
phi1=2*pi*(d/lamda)*sin(theta1); 
t1=d*sin(theta1)/c; 

%path two surface reflection 
L2=sqrt(R A 2+(2*D) A 2); 

T2=r_fac; 

tau2=L2/c-offset; 

theta2=atan(2*D/R); 

CP2=T2/sqrt((L2/1000) A k*a_fc A (L2/1000)); 

phi2=2*pi*(d/lamda)*sin(theta2); 

t2=d*sin(theta2)/c; 

%path three suface bottom surface refelection 
L3=4*sqrt((R/4) A 2+D A 2); 

T3=(r_fac) A 2; 
tau3=L3/c-offset; 
th eta 3=ata n (D/( R/4)); 

CP3=T3/sqrt((L3/1000) A k*a_fc A (L3/1000)); 

phi3=2*pi*(d/lamda)*sin(theta3); 

t3=d*sin(theta3)/c; 

CP=[CP1 CP2 CP3]; 

P=[phi1 phi2 phi3]; 

TAU_rel=[tau1 tau2 tau3]; 
tmp=[t1 ,t2,t3]; 

Ch_char=[CP;P;TAU_rel;tmp].'; 
for m=1:n 

CC(:,:,m)=[ CPI tau1+(m-1 )*t1; 

CP2 tau2+(m-1)*t2; 

CP3 tau3+(m-1)*t3;]; 

end; 
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function 

[C,gama,Chat,gamahat]=DTchannel_response_alt_alt_alt(n,CH_char,fJ,fs,fc, delay, res, N) 
%delay is the estimate delay 
%res is the delta T that used 

%N is the number of the sample averages that need to be computed 
%total number of the pages is ndiff+N 

f_dop=1/2; 

delT=res 

ndiff=delay/res; 

delTlength=ndiff+N; 

df=fs/(f_l); 
f=-fs/2:df:fs/2; 
f=f(1 :length(f)-1); 

% N=f_l/2; 

% f=linspace(-N,N,fJ)/N*fs; 

% f=linspace(0,fs,f_l); 
path=3; 

CP=CH_char(:,1); 

P=CH_char(:,2); 

TAU_rel=CH_char(:,3); 

tmp=CH_char(:,4); 

%normalize cp 

s=sum((abs(CP)). A 2); 

factor=(1/n)/s; 

CP=sqrt(factor).*CP; 

power=mean(CP. A 2); 

%sigma_p=power-(mean(CP)) A 2; 

sigma_p=power; 

aO=exp(-2*pi*f_dop*delT); 

sigma_zita=(1-aO A 2)*sigma_p; 

r=sqrt(sigma_zita)*randn(1,delTlength); 

theta=rand(1 ,delTlength)*2*pi; 

%zita=[1 ;1;1]*(r.*exp(j*theta)); 
zita=r.*exp(j*theta); 

kfac=aO A ndiff; 
kfac=1; 

for m=1:n 
for p=1:path 

Phi(m,p)=exp(-j*(m-1 )*P(p)); 

Coeff(m,p)=CP(p)*Phi(m,p)*exp(-j*2*pi*fc*TAU_rel(p)); 

end; 

end; 

%CP3 is 3-d matrix, add delta t dimension 
CP3(:,:,1)=Coeff; 
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for i=1 :delTlength 
recursions 


% AO=aO. A [i-1 +ndiff-1 >1:0]; 

% X=zita(1:ndiff+i-1); 

% CP3(:,:,i+1 )=a0 A (ndiff+i-1)+A0.*X*(repmat(Phi,1,ndiff+i-1)); 

% CP3ealier(:,:,i+1)=aO*C 
% CP3hat(:,:,i+1) 

CP3(: 1 :,i+1)=aO*CP3(:,:,i)+Phi*diag(zifa(:,i)); 

CP3hat(:,:,i)=kfac*CP3(:,:,i); 

end; 


for i=1 :N 
count=i 
for m=1 :n 

C(m,:,i)=CP3(m,1,i+ndiff)*ones(size(f)); 

Chat(m,:,i)=CP3hat(m,1 ,i)*ones(size(f)); 
for p=2:path 

C(m,:,i)=C(m,:,i)+CP3(m,p,i+ndiff)*exp(-j*2*pi*f*TAU_rel(p)); 

Chat(m,:,i)=Chat(m,:,i)+CP3hat(m,p,i)*exp(-j*2*pi*f*TAU_rel(p)); 

end; 

end; 

gama(i,:)=zeros(1 Jength(f)); 
gamahat(i,:)=zeros(1,length(f)); 
for m=1 :n 

gama(i,:)=gama(i,:)+abs(C(m,:,i). A 2); 

gamahat(i,:)=gamahat(i,:)+abs(Chat(m,:,i). A 2); 

end; 

end; 


function Y_t=channel(uu,C,E,snr_in_db,noise_mean) 

%pass signal through channel specified by C 
%input: 

%uu: input signal, can be single row (uplink) or multi-row downlink 
%C: channel spec, row channel column: frequency sample 
%E: Energy per bit 
%snr_in_db: Channel noise in dB 
%noise_mean: channel noise mean 

%output: 

%Y_t: signal received on the other end with noise 

SNR=10 A (snr_in_db/10); 

var=1/SNR; 


[chn,f_l]=size(C); 

[sn,sc]=size(uu); 

%fac=noise_norm(uu,var,snrJn_db,chn,f_l); %normalize noise factor due to addtion effect 
for m=1:chn 

if(chn>sn) %uplink case 
Cm_f=C(m,:); 

ct=ifftshift(ifft(fftshift(Cm_f))); 

ut=uu; 

y=conv(ct,ut); 

y=y(f_l/2+1:length(y»; 
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%generate and add noise 
r=randn(1 ,length(y)).*sqrt(var)+noise_mean; 
theta=rand(1 ,length(y))*2*pi; 
noise=r.*exp(j*theta); 

% noise=noise*sqrt(fac); 
y=y+noise; 

YJ(m,:)=y; 
disp('uplink channel'); 

elseif(chn==sn) %downlink case 
Cm_f=C(m,:); 

ct=iffts h ift (ifft(ffts h ift( C m_f))); 
ut=uu(m,:); 
y=conv(ct,ut); 
y=y(f_l/2+1:length(y)); 

Y_t(m,:)=y; 

disp('downlink channel'); 
else 

disp('error in channel.m'); 
end; 
end; 

if(chn==sn) %downlink case noise 
Y_t=sum(Y_t); 

r=randn(1 ,length(Y_t)).*sqrt(var)+noise_mean; 
theta=rand(1 ,length(Y_t))*2*pi; 
noise=r.*exp(j*theta); 

% noise=noise*sqrt(fac); 

Y_t=Y_t+noise; 

end; 


function [C.gama,Chat,gamahat]=DTchannel_responseAR20(n,CH_char,f_l,fs,fc,delay,res,N) 
%delay is the estimate delay 
%res is the delta T that used 

%N is the number of the sample averages that need to be computed 
%total number of the pages is ndiff+N 

f_dop=1/20; 

delT=res 

ndiff=delay/res; 

delTlength=ndiff+N; 

df=fs/(f_l); 
f=-fs/2: d f: f s/2; 
f=f(1:length(f)-1); 

% N=f_l/2; 

% f=linspace(-N,N,f_l)/N*fs; 

% f=linspace(0,fs,f_l); 
path=3; 

CP=CH_char(:,1); 

P=CH_char(;,2); 

TAU_rel=CH_char(:,3); 

tmp=CH_char(:,4); 

%nomalizing cp 
s=sum((abs(CP)). A 2); 
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factor=(1/n)/s; 

CP=sqrt(factor).*CP; 


xi=0.5 %damping factor 

fn=f_dop/(sqrt((1-2*xi A 2)+sqrt(1+(1-2*xi A 2) A 2))) 

wn=2*pi*fn; 

%aO=exp(-2*pi*f_dop*delT); 

aO=2*exp(-xi*wn*delT)*cos(sqrt(1-xi A 2)*wn*delT); 

a1=-exp(-2*xi*wn*delT); 


power=mean(CP. A 2); 

%sigma_p=power-(mean(CP)) A 2; 

sigma_p=power; 

rho=a0/(1-a1); 

sigma_zita=(1 -aO A 2-a1 A 2-2*a0*a1 *rho)*sigma_p; 

r=sqrt(sigma_zita)*randn(1 .delTlength); 

theta=rand(1 ,de!Tlength)*2*pi; 

%zita=[1 ;1 ;1]*(r.*exp(j*theta)); 
zita=r.*exp(j*theta); 

kaO=aO A ndiff; 

kal =-abs(a1 A (ndiff-1)); 

for m=1:n 
for p=1:path 

Phi(m,p)=exp(-j*(m-1 )*P(p)); 

Coeff(m,p) ::; CP(p)*Phi(m,p)*exp(-j*2*pi*fc*TAU_rel(p)); 

end; 

end; 

%CP3 is 3-d matrix, add delta t dimension 
CP3(:,:,1)=Coeff; 

CP3(:,:,2)=Coeff; 

for i=1:delTlength 
recursion=i 


% A0=a0. A [i-1 +ndiff-1 >1:0]; 

% X=zita(1:ndiff+i-1); 

% CP3(:,:,i+1 )=aO A (ndiff+i-1 )+A0.*X*(repmat(Phi,1 ,ndiff+i-1)); 

% CP3ealier(:,:,i+1)=aO*C 
% CP3hat(:,:,i+1) 

CP3(:,:,i+2)=aO*CP3(:,:,i+1 )+a1*CP3(:,:,i)+Phi*diag(zita(i)); 
CP3hat(:,:,i)=CP3(:,:,i); 
end; 


for i=1:N 
count^i 
for m=1:n 

C(m,:,i)=CP3(m,1 ,i+1+ndiff)*ones(size(f)); 
Chat(m,:,i)=CP3hat(m,1 ,i)*ones(size(f)); 
for p=2:path 
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C(m > :,i)=C(m 1 : 1 i)+CP3(m,p,i+ndiff)*exp(-j*2*pi*f*TAU_rel(p)); 

Chat(m,: l i)=Chat(m,:,i)+CP3hat(m,p,i)*exp(-j*2*pi*f*TAU_rel(p)); 

end; 

end; 

gama(i,:)=zeros(1 ,length(f)); 
gamahat(i,:)=zeros(1 ,length(f)); 
for m=1 :n 

gama(i,:)=gama(i,:)+(abs(C(m,:,i)). A 2); 

gamahat(i,:)=gamahat(i,:)+(abs(Chat(m,:,i)). A 2); 

end; 

end; 


function 

[C,gama, Chat,gamahat]=DTchannel_response_alt_alt_alt10(n,CH_char,fJ,fs,fc,delay, res, N) 
%delay is the estimate delay 
%res is the delta T that used 

%N is the number of the sample averages that need to be computed 
%total number of the pages is ndiff+N 


f_dop=1/20; 

delT=res 

ndiff=delay/res; 

delTlength=ndiff+N; 

df=fs/(f_l); 

f=-fs/2:df;fs/2; 

f=f(1;length(f)-1); 

% N=f_l/2; 

% f=linspace(-N,N,f_l)/N*fs; 

% f=linspace(0,fs,f_l); 
path=3; 

CP=CH_char(:,1); 

P=CH_char(:,2); 

TAU_rel=CH_char(:,3); 

tmp=CH_char(:,4); 

%normalize cp 

s=sum((abs(CP)). A 2); 

factor=(1/n)/s; 

CP=sqrt(factor).*CP; 

power=mean(CP A 2); 

%sigma_p=power-(mean(CP)) A 2; 

sigma_p=power; 

aO=exp(-2*pi*f_dop*delT); 

sigma_zita=(1-aO A 2)*sigma_p; 

r=sqrt(sigma_zita)*randn(1,delTlength); 

theta=rand(1 ,delTlength)*2*pi; 

%zita=[1; 1; 1 ]*(r.*exp(j*theta)); 
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zita=r.*exp(j*theta); 

%kfac=aO A ndiff; 
kfac=1; 


for m=1 :n 
for p=1:path 

Phi(m,p)=exp(-j*(m-1 )*P(p)); 

Coeff(m,p)=CP(p)*Phi(m,p)*exp(-j*2*pi*fc*TAU_rel(p)); 

end; 

end; 

%CP3 is 3-d matrix, add delta t dimension 
CP3(:,:,1)=Coeff; 

for i=1 rdelTlength 
recursions 


% A0=a0. A [i-1+ndiff-1:-1:0]; 

% X=zita(1:ndiff+i-1); 

% CP3(:,:,i+1 )=aO A (ndiff+i-1 )+A0.*X*(repmat(Phi,1 ,ndiff+i-1)); 

% CP3ealier(:,;,i+1)=aO*C 
% CP3hat(:,:,i+1) 

CP3(:,;,i+1)=aO*CP3(:,;,i)+Phi*diag(zita(:,i)); 

CP3hat(;,;,i)=kfac*CP3(;,:,i); 

end; 


for i=1;N 
count=i 
for m=1 :n 

C(m,:,i)=CP3(m,1,i+ndiff)*ones(size(f)); 

Chat(m,:,i)=CP3hat(m,1 ,i)*ones(size(f)); 
for p=2:path 

C(m,:,i)=C(m,; 1 i)+CP3(m,p,i+ndiff)*exp(-j*2*pi*f*TAU_rel(p)); 

Chat(m,;,i)=Chat(m,:,i)+CP3hat(m,p,i)*exp(-j*2*pi*f*TAU_rel(p)); 

end; 

end; 

gama(i,;)=zeros(1 ,length(f)); 
gamahat(i,:)=zeros(1,length(f)); 
for m=1 :n 

gama(i,:)=gama(i,:)+abs(C(m,:,i). A 2); 

gamahat(i,:)=gamahat(i,:)+abs(Chat(m,;,i). A 2); 

end; 


function [C.gama,Chat,gamahat]=DTchannel_responseAR200(n,CH_char,f_l,fs,fc,delay,res,N) 
%delay is the estimate delay 
%res is the delta T that used 

%N is the number of the sample averages that need to be computed 
%total number of the pages is ndiff+N 
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f_dop= 1/200; 
delT=res 
ndiff=delay/res; 
delTlength=ndiff+N; 

df=fs/(f_l); 

f=-fs/2:df:fs/2; 

f=f(1:length(f)-1); 

% N=f_l/2; 

% f=linspace(-N,N,f_l)/N*fs; 
% f=linspace(0,fs,f_l); 
path=3; 

CP=CH_char(:,1); 

P=CH_char(:,2); 

TAU_rel=CH_char(:,3); 

tmp=CH_char(:,4); 

%nomalizing cp 
s=sum((abs(CP)). A 2); 
factor=(1/n)/s; 
CP=sqrt(factor).*CP; 


xi=0.5 %damping factor 

fn=f_dop/(sqrt((1-2*xi A 2)+sqrt(1+(1-2*xi A 2) A 2))) 

wn=2*pi*fn; 

%aO=exp(-2*pi*f_dop*delT); 

aO=2*exp(-xi*wn*delT)*cos(sqrt(1-xi A 2) , 'wn*delT); 
al =-exp(-2*xi*wn*delT); 


power=mean(CP. A 2); 

%sigma_p=power-(mean(CP)) A 2; 

sigma_p=power; 

rho=a0/(1-a1); 

sigma_zita=(1 -aO A 2-a1 A 2-2*a0*a 1 *rho)*sigma_p; 


r=sqrt(sigma_zita)*randn(1,delTlength); 

theta=rand(1 ,delTlength)*2*pi; 

%zita=[1 ;1 ;1]*(r.*exp(j*theta)); 
zita=r.*exp(j*theta); 

kaO=aO A ndiff; 

kal =-abs(a1 A (ndiff-1)); 


for m=1 :n 
for p=1:path 

Phi(m,p)=exp(-j*(m-1 )*P(p)); 

Coeff(m,p)=CP(p)*Phi(m > p)*exp(-j*2*pi*fc*TAU_rel(p)); 
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end; 

end; 

%CP3 is 3-d matrix, add delta t dimension 
CP3(:,:,1)=Coeff; 

CP3(:,:,2)=Coeff; 

for i=1:delTlength 
recursion=i 


% AO=aO. A [i-1 +ndiff-1 :-1:0]; 

% X=zita(1;ndiff+i-1); 

% CP3(:,:,i+1 )=aO A (ndiff+i-1 )+A0.*X*(repmat(Phi,1 ,ndiff+i-1)); 

% CP3ealier(:,:,i+1 )=aO*C 
% CP3hat(:,:,i+i) 

CP3(:,:,i+2)=aO*CP3(:,:,i+1)+a1*CP3(:,:,i)+Phi*diag(zita(i)); 

CP3hat(:,:,i)=CP3(:,:,i); 

end; 


for i=1:N 
count=i 
for m=1 :n 

C(m,:,i)=CP3(m,1 ,i+1+ndiff)*ones(size(f)); 

Chat(m,:,i)=CP3hat(m,1 ,i)*ones(size(f)); 
for p=2:path 

C(m,:,i)=C(m,;,i)+CP3(m,pj+ndiff)*exp(-j*2*pi*f*TAU_rel(p)); 

Chat(m,:,i)=Chat(m,:,i)+CP3hat(m,p,i)*exp(-j*2*pi*f*TAU_rel(p)); 

end; 

end; 

gama(i,:)=zeros(1 ,length(f)); 
gamahat(i,:)=zeros(1 ,length(f)); 
for m=1 :n 

gama(i,:)=gama(i,:)+(abs(C(m,:,i)). A 2); 

gamahat(i,:)=gamahat(i,:)+(abs(Chat(m,:,i)). A 2); 

end; 


function [GO_f,G_f,K_f]=filter_calculation(E,NO,gama,ch_f,xf,gf,freq_l,char,flag) 

%calculate filters for 2sided uplink and downlink 

%char: uplink or downlink 

%flag=1 for 1 sided 

%flag=2 for 2 sided 

[r,c]=size(ch_f); 

shape=ones(r,1); 

GAMA=shape*gama; 

GF=shape*gf; 

switch flag 

case 2 %two sided 


Swf=N0; 

var_d=1; 

df=2*pi/freq_l; 
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v=abs(xf)./sqrt(gama); 

lntegral=(1/(2*pi))*sum(df*sqrt(Swf).*v); 

beta=(E/var_d)/lntegral; 

KK_f=Swf A (1/4)*sqrt(beta); 


if(char==0) 

K_f=KK_f; 

disp('two-sided uplink filter'); 
elseif(char==1) 

K_f=1/KK_f; 

disp('two-sided downlink filter'); 
else 

disp('error! select either downlink or uplink'); 
end; 

G_f=(1/K_f)*GF.*conj(ch_f)./GAMA. A (3/4); 
GO_f=K_rgf./gama. A ( 1/4); 
case 1 %one side 
x0=1; 
var_d=1; 

Swf=N0; 

if(char==0) %uplink 

disp('one sided uplink filter’); 
K=sqrt((E/var_d)/xO); 

G_f=1/K*GF.*conj(ch_f)./GAMA; 

%GO_f=fftshift(fft(gtSingle,freq_l)); 

G0_f=gf; 

K_f=K; 

elseif(char==1) %downlink 
disp('one-sided downlink filter'); 
df=2*pi/freq_l; 
v=abs(xf)./gama; 

lntegral=(1/(2*pi))*sum(df*Swf.*v); 

beta=(E/var_d)/lntegral; 

K_f=Swf A (1/2)*sqrt(beta); 

G_f=K_f*GF.*conj(ch_f)./GAMA; 

%G0_f=(1/K_f).*fftshift(fft(gtSingle,freq_l)); 

G0_f=(1/K_f).*gf; 

else 

disp(’error in filter calculation, down or up?'); 
end; 

case 0 %phase conjugation 
x0=1; 
var_d=1; 

Swf=N0; 

if(char==0) %uplink passive conjagation 
disp('passive conjagation uplink filter'); 
K=sqrt((E/var_d)/xO); 

K_f=K; 

G0_f=K*gf; 

G0F=shape*G0_f; 

G_f=conj(GOF).*conj(ch_f); 
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elseif(char==1) %downlink 

disp('active conjagation downlink filter'); 

df=2*pi/freq_l; 

v=abs(xf); 

lntegral=(1/(2*pi))*sum(df.*v); 

beta=(E/var_d)/lntegral; 

K_f=sqrt(beta); 

G_f=K_f*(GF).*conj(ch_f); 

GO_f=gf; 

else 

disp('error in filter calculation, down or up?'); 
end; 

otherwise 

disp('error in filter calculation function'); 
end; 


function 

[C.gama, Chat,gamahat]=DTchannel_response_alt_alt_alt100(n,CH_char,f_l,fs,fc,delay,res,N) 
%delay is the estimate delay 
%res is the delta T that used 

%N is the number of the sample averages that need to be computed 
%total number of the pages is ndiff+N 


f_dop= 1/200; 
delT=res 
ndiff=delay/res; 
delTlength=ndiff+N; 

df=fs/(f_l); 

f=-fs/2:df:fs/2; 

f=f(1:length(f)-1); 

% N=f_l/2; 

% f=linspace(-N,N,f_l)/N*fs; 

% f=linspace(0,fs,f_l); 
path=3; 

CP=CH_char(:,1); 

P=CH_char(:,2); 

TAU_rel=CH_char(:,3); 

tmp=CH_char(:,4); 

%normalize cp 
s=sum((abs(CP)). A 2); 
factor=(1/n)/s; 
CP=sqrt(factor).*CP; 

power=mean(CP. A 2); 

%sigma_p=power-(mean(CP)) A 2; 

sigma_p=power; 

aO=exp(-2*pi*f_dop*delT); 

sigma_zita=(1-aO A 2)*sigma_p; 
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r=sqrt(sigma_zita)*randn(1 .delTlength); 

theta=rand(1,delTlength )*2*pi; 

%zita=[1 ;1 ;1 ]*(r.*exp(j*theta)); 
zita=r.*exp(j*theta); 

%kfac=aO A ndiff; 

kfac=1; 


for m=1 :n 
for p=1 :path 

Phi(m,p)=exp(-j*(m-1 )‘P(p)); 

Coeff(m,p)=CP(p)*Phi(m,p)*exp(-j*2*pi*fc*TAU_rel(p)); 

end; 

end; 

%CP3 is 3-d matrix, add delta t dimension 
CP3(:,:,1)=Coeff; 

for i=1:delTlength 
recursion=i 


% A0=a0. A [i-1 +ndiff-1 :-1:0]; 

% X=zita(1 :ndiff+i-1); 

% CP3(:,:,i+1 )=aO A (ndiff+i-1 )+A0.*X*(repmat(Phi,1 ,ndiff+i-1)); 

% CP3ealier(:,:,i+1 )=aO*C 
% CP3hat(:,;,i+1) 

CP3(:,:,i+1)=aO*CP3(:,:,i)+Phi*diag(zita(:,i)); 

CP3hat(:,;,i)=kfac*CP3(:,:,i); 

end; 


for i=1 :N 
count=i 
for m=1:n 

C(m,:,i)=CP3(m,1 ,i+ndiff)*ones(size(f)); 
Chat(m,:,i)=CP3hat(m,1,i)*ones(size(f)); 
for p=2:path 

C(m,:,i)=C(m 1 ; I i)+CP3(m,p,i+ndiff)*exp(-j*2*pi*f*TAU_rel(p)); 

Chat(m,:,i)=Chat(m,:,i)+CP3hat(m,p,i)*exp(-j*2*pi*f*TAU_rel(p)); 

end; 

end; 

gama(i,;)=zeros(1 Jength(f)); 
gamahat(i,;)=zeros(1 Jength(f)); 
for m=1 :n 

gama(i,:)=gama(i,:)+abs(C(m,:,i). A 2); 
gamahat(i,:)=gamahat(i,:)+abs(Chat(m,:,i) A 2); 
end; 


function out=detect(in) 

%detect input sequence 
phi=angle(in); 
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for n=1 :length(in) 

if(phi(n)>0 & phi(n)< pi/2) 
out(1 ,n)=exp(j*pi/4); 
elseif(phi(n)>pi/2 & phi(n)<pi) 
out(1 ,n)=exp(j*3*pi/4); 
elseif(phi(n)>-pi & phi(n)<-pi/2) 
out(1 ,n)=exp(-j*3*pi/4); 
elseif(phi(n)>-pi/2& phi(n)<0) 
out(1 ,n)=exp(-j*pi/4); 
else 

out(1,n)=0; 

end; 

end; 


function [y_t]=processor(R,g,freq_length) 


[r,c]=size(R); 

[gr,gc]=size(g); 
if(gr==1) %downlink case 
disp('downlink in processor'); 
if(r~=1) 

disp('error in processor') 
end; 

y_t=zeros(1 ,c+freq_length/2-1); 

%g_t=ifft(fftshift(G_f(k,:))); 

temp=conv(g,R); 

temp=temp(freq_length/2+1 :length(temp)); 
y_t=temp; 
end; 

if(gr>1) %uplink case 
disp('uplink in processor’); 
y_t=zeros(1 ,c+freq_length/2-1); 
for k=1 :r 

% g_t=ifft (ffts h ift (G_f (k r :))); 
temp=conv(g(k,:),R(k,:)); 
temp=temp(freq_length/2+1:length(temp)); 
y_t=y_t+temp; 
end; 
end; 

function y=sig_gen(dn,g,Ns); 

%dn is the input stream 

n=length(dn); 

lg=length(g); 

N=(n-1 )*Ns+lg; %extra are the tails 

trunc=((lg-1)/Ns)/2; 

y=zeros(1 ,N); 

for k=1 :n 

temp=[zeros(1 ,(k-1 )*Ns) dn(k).*g zeros(1 ,N-(k-1 )*Ns-lg)]; 
y=y+temp; 
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end; 

function [snr,diff]=SNROUT(x,y); 
E=1; 

% ref=detect(y); 

% diff=ref-x; 


diff=0; 

z=y-x; 

z_mag=abs(z); 

d=mean(z_mag. A 2); 

snr=10*log10(E/d); 

% sqrtrcos.m 

% square root raised cosine; 

function q=sqrtrcos(alpha,Ns,trunc); 

% alpha = roll-off factor 
% Ns = samples per symbol; 

% trunc = left/right truncation length in sb. int. 

tn=(-trunc*Ns:trunc*Ns)/Ns; 

%p=sin(pi*tn)./(pi*tn).*cos(alpha*pi*tn)./(1-4*alpha A 2*tn. A 2); 

pitn=pi*tn; 

q=cos((1+alpha)*pitn)+sin((1-alpha)*pitn)./(4*alpha*tn); 
q=4*alpha/(pi*sqrt(Ns))*q./(1-(4*alpha*tn). A 2); 
0 /ofO=find(p==lnf|p==-lnf);p(fO)=zeros(size(fO)); 
q(Ns*trunc+1)=1/sqrt(Ns)*(4*alpha/pi+1-alpha); 
ind=find(tn==1/(4*alpha)|tn==-1/(4*alpha)); 
if -isempty(ind); 
a=4*aipha/pi; 
a1=(1+alpha)/a; 
a2=(1-alpha)/a; 

q(ind)=a/sqrt(Ns)/2*(a1*sin(a1 )-a2*cos(a2)+sin(a2)); 
end; 

%figure(1 ),plot(tn,q) 


function [xin,yout,GMA,CH_f,xf]=uplink_1(Nd,channel_number,noise_snr,freqJength,ddd,alpha) 

range=3000; 

depth=75; 

snrJn_db=noise_snr; 

E=1; %bit energy 
Ns=8; %sample per symbol 
Tsym=1/5000; %symbol interval 
s_rate=Ns*(1/Tsym); %sampling rate 
T=1/s_rate; %smapling interval 
fc= 15000;% carrier frequency 
fs=s_rate; 

M=4; %4-ary signal 
n_mean=0; 
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trunc=16; 

N0=0.5/(10 A (snr_in_db/10)); 

fd=1/Tsym; 

%random data stream 
for i=1 :Nd 
temp=rand; 
if(temp<0.25) 
m(i)=1/2; 
elseif(temp<0.5) 
m(i)=3/2; 

elseif(temp<0.75) 

m(i)=5/2; 

else 

m(i)=7/2; 

end 

end; 

dn=expQ*2*pi.*m./M); 

xin=dn; 

array_d=(1500/fc)/2; 

% u=rcosflt(dn,1/Tsym,1/T,'fir/sqrt’,alpha,4,0.0001); %input wave form in sample rate 
% u=u.'; 

% ddn=zeros(1,Ns*Nd-Ns+1); 

% ddn(1:8:length(ddn))=dn(:); 

[CH_char,CC]=channel_construc(channel_number,3000,75,array_d,fc,fs); 

% maxdel=max(CC(3,2,:)-CC(1,2,:)); 

% freq_length=((Nd-1)*Ns+(2*trunc‘Ns+1 )+ceil(maxdel*fs))*2; %freq domain analysis vector 
length 

%filter vector to gurantee zero outside of W row vector 
W=(Ns*(1/Tsym)/(s_rate))*freq_length; 

F=lowpass(W,freq_length); 
dummy=ones(1 ,channel_number); 

FF=F.’*dummy; 

FF=FF.'; 

[CH_f,GMA]=channel_response_alt(channel_number,CH_char,freq_length,fs,F,fc); 


padn=(freq_length-2*trunc*Ns)/2; 

gt=[zeros(1,padn) sqrtrcos(alpha,Ns,trunc) zeros(1 ,padn)]; 
gf=fftshift(fft(gt,freq_length)); 

xt=[zeros(1,padn) rcos(alpha,Ns,trunc) zeros(l.padn)]; 

xf=fftshift(fft(xt,freq_length)); 

xf=abs(xf); 

gtSingle=sqrtrcos(alpha,Ns,trunc); 

% u=rcosflt(dn,1/Tsym,1/T,'fir/sqrt',alpha,4,0.0001); %input wave form in sample rate 
% u=u.'; 

% length(u) 

% u=sig_gen(dn,gtSingle,Ns); 
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u=waveGen(channel_number,dn,gtSingle,Ns); 


[GJ]=up_receiver(E, NO,GMA,CHJ,xf,gf,freq Jength, F); 
% df=2*pi/freq Jength; 

% energy=sum(df*conj(G0_f).*G0_f)*(1/(2*pi)) 


%Rtotal_t=channel_t_alt(u,CH_f,E,snr_in_db,n_mean,1/Tsym,1/T,alpha,fc,CH_char,freq_length); 
Rtotal_t=channel(u,CH_f,E,snrJn_db,n_mean); 

% Rtotal_t=[Rtotal_t zeros(channel_number,length(RtotalJ))]; 

[m,c]=size(Rtotal_t); 
y_t=zeros(1 ,c+freq_length/2-1); 
for k=1 :channel_number 

%Rm_t=rcosflt(Rtotal_t(k,:),1/Tsym,1/T,'fir/sqrt/Fs',alpha,4,0.0001) 

Rm_t=Rtotal_t(k,:); 

Rm_t=Rm_t.'; 

g_t=ifft(fftshift(G_f(k,:))); 

temp=conv(g_t,Rm_t.'); 

temp=temp(freq_length/2+1:length(temp)); 

y_t=y_t+temp; 

end; 

delay=trunc*Ns+1; 
yout=sig_map(y_t,delay,Ns, Nd,0); 

% test=Q; 

% 

% for k=1 :length(yout) 

% if(abs(yout(k))<0.5*(mean(abs(yout)))) 

% test(k)=1; 

% else 
% test(k)=0; 

% end; 

% end; 

% 

% figure 
% stem(test); 

function [xin,yout,GMA,CH_f,xf]=uplink_2(Nd,channel_number,noise_snr,freqJength,ddd,alpha) 

%main engine running simulation 

%input: 

%Nd: number of random symbols 
%channel_number 
%noise_snr: one number 
%freqjength 

%ddd:detection delay offset, normally 0 
%alpha: raised cosine 

E=1; 

Ns=8; %sample per symbol 
Tsym=1/5000; %symbol interval 
s_rate=Ns*(1/Tsym); %sampling rate 
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T=1/s_rate; %smapling interval 
fc= 15000;% carrier frequency 
fs=s_rate; 

s nrJn_db=noise_snr; 

n_mean=0; 

N0=E*0.5/(10 A (snr_in_db/10)); 
M=4; %4-ary signal 
array_d=(1500/fc)/2; 

%random data stream 
for i= 1: Nd 
temp=rand; 
if(temp<0.25) 
m(i)=1/2; 
elseif(temp<0.5) 
m(i)=3/2; 
elseif(temp<0.75) 
m(i)=5/2; 
else 

m(i)=7/2; 

end 

end 

dn=exp(j*2*pi.*m./M); 

xin=dn; 


%this block is for legacy only ignore 
W=(Ns*(1/Tsym)/(s_rate))*freqJength; 

F=lowpass(W,freq_length); 
dummy=ones(1 ,channel_number); 

FF=F.'*dummy; 

FF=FF.'; 

%ignore above block, legacy 

% generate channel gemetrically produce CH_char which is the model of the channel 
[CH_char,CC]=channel_construc(channel_number,3000,75,array_d,fc,fs); 

%calculate channel response based on CH_char 

[CH_f,GMA]=channel_response_alt(channel_number,CH_char,freq_length,fs,F,fc); 

trunc=16; 

padn=(freq_length-2*trunc*Ns)/2; 

gt=[zeros(1 ,padn) sqrtrcos(alpha,Ns,trunc) zeros(1,padn)]; 
gf=fftshift(fft(gt,freq_length)); 

xt=[zeros(1,padn) rcos(alpha,Ns,trunc) zeros(1,padn)]; 

xf=fftshift(fft(xt,freq_length)); 

xf=abs(xf); 

gtSingle=sqrtrcos(alpha,Ns,trunc); 


% u=rcosflt(dn,1/Tsym,1/T,'fir/sqrt’,alpha,4,0.0001); %input wave form in sample rate 
% u=u.'; 

% length(u) 

% ddn=zeros(1,Ns*Nd-Ns+1); 

% ddn(1:8:length(ddn))=dn(:); 

%[G0_f,G_f,K_f]=up_receiver2(E,N0,GMA,CH_f,xf,gf,freq_length,F); 
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[G0_f,G_f,K_f]=filterCALC2(E,N0,GMA,CH_f,xf,gf,freq_length,0); 

%compute per bit energy for verification only ignore 
df=2*pi/freq_length; 

energy=sum(df*conj(G0_f).*G0_f)*(1/(2*pi)) 

%above block calcualte per bit energy 

%this block generate signal to be input into channel 

gO_t=ifft(fftshift(GO_f)); 

gO_t=gO_t; 

%u=sig_gen(dn,gO_t,Ns); 

u=waveGen(channel_number,dn,gO_t,Ns); 

%signal through water 

%Rtotal_t=channel_t_alt(u,CH_f,E,snrJn_db,n_mean,1/Tsym,1/T,alpha,fc,CH_char,freq_length); 
Rtotal_t=channel(u,CH_f,E,snr_in_db,n_mean); 

%this block process the received signal 
[m,c]=size(Rtotal_t); 
y_t=zeros(1 ,c+freq_length/2-1); 
for k=1 :channel_number 

%Rm_t=rcosflt(RtotaLt(k,:),1/Tsym,1/T,'fir/sqrt/Fs’,alpha,4,0.0001) 

Rm_t=Rtotal_t(k,:); 

RmJ^RmJ.'; 

g_t=ifft(fftshift(G_f(k,:))); 

temp=conv(g_t,Rm_t.'); 

temp=temp(freq_length/2+1:length(temp)); 

y_t=y_t+temp; 

end; 

%this block sample the processed signal at the right interval and delay 
delay=freq _length/2+1; 
yout=sig_map(y_t, delay, Ns, Nd,0); 

%ignore below block, for test only 
% test=[]; 

% for k=1 :length(yout) 

% if(abs(yout(k))<0.5*(mean(abs(yout)))) 

% test(k)=1; 

% else 
% test(k)=0; 

% end; 

% end; 

% 

% figure 
% stem(test); 

function G_f=up_receiver(E,NO,gama,ch_f,xf,gf,freq_l,F) 

%implement the equation for filter on the receiver side 

%filter is a vector filtering out freq outside W 

[r c]=size(ch_f); 

x0=1; 

var_d=1; 

K=sqrt((E/var_d)/xO); 

shape=ones(r,1); 

GAMA=shape*gama; 
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GF=shape*gf; 

G_f=1/K*GF.*conj(ch_f)./GAMA; 

%implement multipath 
%three paths 

clear all; 

range=3000; 

depth=75; 

E=1; %bit energy 
Ns=8; %sample per symbol 
Tsym=1/5000; %symbol interval 
s_rate=Ns*(1/Tsym); %sampling rate 
T=1/s_rate; %smapling interval 
fc= 15000;% carrier frequency 
fs=s_rate; 

M=4; %4-ary signal 

njmean=0; 

trunc=16; 

fd=1/Tsym; 

array_d=(1500/fc)/2; 

max delay=0.01; %longest path delay time 

alpha=0.1; 

snr_out=Q; 

gtSingie=sqrtrcos(alpha,Ns,trunc); 

side=0; %0:time-reversal 1:onesided focusing 2:twosided focusing 

dir=1; %direction of the transimission 0 is uplink 1 is downlink 
channel_number=32; 
nbit=1000; 

Nd=nbit/2; 

snr_v=[35]; 

est_delay=0.00; 
ndiff=est_delay/(1 /5000); 
total=1; 


time=max_delay+Nd*Ns/fs; 

min_df=1/time; 

minFlength=fs/min_df 

freq_length=2 A nextpow2(minFlength); 

padn=(freq_length-2*trunc*Ns)/2; 

gt=[zeros(1,padn) sqrtrcos(alpha,Ns,trunc) zeros(1,padn)]; 
gf=fftshift(fft(gt,freqjength)); 

xt=[zeros(1 ,padn) rcos(alpha,Ns,trunc) zeros(1 ,padn)]; 

xf=fftshift(fft(xt,freq Jength)); 

xf=abs(xf); 


%data generation 
datastream=randint(2,Nd); 
for m=1 :nbit/2 

a=int2str(datastream(1 ,m)); 


92 



b=int2str(datastream(2,m)); 
binstr=[a b]; 

data(m)=bin2dec(binstr); 

end; 

dn=exp(j*2*pi.*((2*data+1)./2)./M);' 

dummy=0; 

[CH_char,CC]=channel_construc(channel_number,3000,75,array_d,fc,fs); 
[CH_f,GMA]=channel_response_alt(channel_number,CH_char,freq_length,fs, dummy, fc); 


%[Cmf3d,GMA2d,Cmf3dhat,GMA2dhat]=DTchannel_response_alt(channel_number,CH_char,fre 
q_length,fs,F,fc,ndiff,total); 

loop=0; 

for n=1 :length(snr_v) 
for k=1 :total-ndiff 
loop=loop+1 

%[x,y,xf]=sim_engine(channel_number,data,k,ndiff,Cmf3d,GMA2d,Cmf3dhat,GMA2dhat,CH_cha 
r,snr_v(n),freq_length,alpha); 

N0=E*0.5/(10 A (snr_v(n)/10)); 

[GO_f,G_f,K_f]=filter_calculation(E,NO,GMA,CH_f,xf,gf,freq_length,dir,side); 

gO_t=ifft(fftshift(GO_f)); 

for i=1 :channel_number 
gf_t(i,:)=ifft(fftshift(G_f(i,:))); 
end; 
x=dn; 

if(dir==1) %downlink 

U=waveGen(channel_number,dn,gf_t,Ns); 

R=channel(U,CH_f,E,snr_v(n),n_mean); 

Y=processor(R,gO_t,freq_length); 
elseif(dir==0) %uplink 

U=waveGen(channel_number,dn,gO_t,Ns); 

R=channel(U,CH_f,E,snr_v(n),n_mean); 

Y=processor(R,gf_t,freq_length); 

df=2*pi/freq_length; 

energy=sum(df*conj(G0_f).*G0_f)*(1/(2*pi)) 

else 

disp('error in NewTest, up or down?'); 
end; 

%sample 

delay=freq_length/2+1; 
y=sig_map(Y,delay, Ns,Nd,0); 
if(side==0) 

[snr_out(k,n),diff]=SNROUT_alt(x,y); 

else 

[snr_out(k,n),diff]=SNROUT(x,y); 

end; 

end; 

end; 

GMAini=GMA; 


%plot(y,'*'); 

% phi=(angle(diff)); 
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% mag=abs(diff); 
% figure 
% stem(phi); 

% figure 
% stem(mag); 

% 


figure 

Plot(yr); 

if(total==1) 

temp=snr_out; 

else 

temp=mean(snr_out); 

end; 


if(side==1) 

snrPredict=SNRcompare1_noPlot(freqJength,xf,GMAini,snr_v,temp); 

else 

snrPredict=SNRcompare2_noPlot(freq_length,xf,GMAini,snr_v,temp); 

end; 

snr_out 

%save perfectOO.mat snr_v snr_out -ascii -double -tabs 
function simRun2000bitsFulI(channel_number,side,dir,est__delay) 

range=3000; 

depth=75; 

E=1; %bit energy 
Ns=8; %sample per symbol 
Tsym=1/5000; %symbol interval 
s_rate=Ns*(1/Tsym); %sampling rate 
T=1/s_rate; %smapling interval 
fc= 15000;% carrier frequency 
fs=s_rate; 

M=4; %4-ary signal 

n_mean=0; 

trunc=16; 

fd=1/Tsym; 

a rr a y_d=(1500/f c) /2; 

max__delay=0.01; %longest path delay time 

alpha=0.1; 

snr_out=Q; 

gtSingle=sqrtrcos(alpha,Ns,trunc); 


cy *+*****★*■*★**■*★*★*★*■*******■*+**★****★**★★***•■*★★**★★*★★**■***★******★+*■********★ 

%input block 

% side=1; %0:time-reversal 1 .‘onesided focusing 2:twosided focusing 

% dir=0; %direction of the transimission 0 is uplink 1 is downlink 

% channel_number=4; 

nbit=2000; %1000 symbols 

Nd=nbit/2; 

snr_v=[30 35]; 
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%estimate machine 
%est_delay=0; 
ndiff=est_delay/(1/5000); 
total=Nd+1; 

0 ^ ★ ****★★★*******★■*★***★★★***★***********************★***■*★*★**★***************** 


time=max_delay+Nd*Ns/fs; 

min_df=1/time; 

minFlength=fs/min_df 

freq_length=2 A nextpow2(minFlength); 

padn=(freq_length-2*trunc*Ns)/2; 

gt=[zeros(1 ,padn) sqrtrcos(alpha,Ns,trunc) zeros(l.padn)]; 
gf=fftshift(fft(gt,freq_length)); 

xt=[zeros(1 ,padn) rcos(alpha,Ns,trunc) zeros(1 ,padn)]; 

xf=fftshift(fft(xt,freq_length)); 

xf=abs(xf); 

%data generation 
datastream=randint(2,Nd); 
for m=1:nbit/2 

a=int2str(datastream(1 ,m)); 
b=int2str(datastream(2,m)); 
binstr=[a b]; 

data(m)=bin2dec(binstr); 

end; 

dn=exp(j*2*pi.*((2*data+1 )./2)./M); 
dummy=0; 

[CH_char,CC]=channel_construc(channel_number,3000,75,array_d,fc,fs); 
%[CFI_f,GMA]=channel_response_alt(channel_number,CH_char 1 freq_length,fs,dummy,fc); 

[Cmf3d,GMA2d,Cmf3dhat,GMA2dhat]=DTchannel_response_alt(channel_number,CH_char,freq 
length,fs,dummy,fc.ndiff,total); 


for n=1 :length(snr_v) 
datapoint=snr_v(n) 
loop=0; 

for k=1 :total-ndiff 
loop=loop+1 

CH_f=Cmf3d(:,:,k+ndiff); 

GMA=GMA2d(k+ndiff,:); 

CH_fhat=Cmf3dhat(:,:,k); 

GMAhat=GMA2dhat(k,:); 

N0=E*0.5/(10 A (snr_v(n)/10)); 

%using estimated value for filter generation also input Swf 

[GO_f,G_f,K_f]=filter_calculation(E,NO,GMAhat,CH_fhat,xf,gf,freqJength,dir,side); 
%time domain filter 
gO_t=ifft(fftshift(GO_f)); 
for i=1:channel_number 
gf_t(i,:)=ifft(fftshift(G_f(i,:))); 
end; 
x=dn; 

if(dir==1) %downlink 
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U=waveGen(channel_number,dn,gf_t T Ns); 
R=channel(U,CH_f,E,snr_v(n),n_mean); 
Y=processor(R } gO_t,freq_length); 
elseif(dir==0) %uplink 

U=waveGen(channel_number J dn ) gO_t > Ns); 

R=channel(U,CH_f,E,snr_v(n),n_mean); 

Y=processor(R,gf_t,freq_length); 

else 

disp('error in NewTest, up or down?'); 
end; 

%sample 

delay=freq_length/2+1; 
y=sig_ m ap(Y 1 delay,Ns ; Nd,0); 
if(side==0) 
y=Ns*y; 

[snr_out(k,n),diff]=SNROUT_alt(x,y); 

else 

[snr_out(k 1 n) f diff]=SNROUT(x,y); 

end; 

end; 

end; 

GMAini=GMA; 


if(total==1) 

temp=snr_out; 

else 

temp=mean(snr_put); 

end; 


if(side-l) 

[SNRpredict]=SNRcompare1_noPlot(freqJength,xf,GMAini,snr_v,temp); 

else 

[SNRpredict]=SNRcompare2_noPlot(freqJength,xf,GMAini,snr_v,temp); 

end; 

switch side 
case 0 
if(dir==0) 

save outputOO.mat snr_v snr_out SNRpredict -ascii -double -tabs 
elseif(dir==1) 

save outputOI .mat snr_v snr_out SNRpredict -ascii -double -tabs 
else 

disp('error in simRun2000bits’); 
end; 
case 1 

if(dir==0) 

save outputlO.mat snr_v snr_out SNRpredict -ascii -double -tabs 
elseif(dir==1) 

save outputl 1 .mat snr_v snr_out SNRpredict -ascii -double -tabs 
else 

disp(’error in simRun2000bits'); 
end; 
case 2 

if(dir==0) 

save output20.mat snr_v snr_out SNRpredict -ascii -double -tabs 
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elseif(dir==1) 

save output21.mat snr_v snr_out SNRpredict -ascii -double -tabs 
else 

disp('error in simRun2000bits'); 
end; 
end; 

function Y_t=channel_t_alt_deltaT(uu,C,E,snrJn_db,noise_mean,fd,fs,alpha,fc,ch_char,f_l) 

[chn,c]=size(C); 

% W=(fd/fs)*f_l; 

% F=lowpass(W,f_l); 

% dummy=ones(1 ,chn); 

% FF=F.'*dummy; 

% FF=FF.'; 

% maxdel=max(CC(3,2,:)-CC(1,2,:)); 

% maxn=(length(u)+ceil(maxdel*fs)); 

% y=zeros(1 ,maxn); 

% tmp=ch_char(;,4) 

% for n=1 :chn 
% fork=1:3 

% %y=fftfilt(ch_t(chn,;),u); 

% tau=CC(k,2,n)-(n-1)*tmp(k); 

% a=CC(k,1 ,n)*exp(-j*2*pi*fc*(n-1 )*tmp(k)); 

% dummy=nth_path_t_alt(tau,a,u,fd,fs,alpha,fc); 

% y=y+[dummy zeros(1,maxn-length(dummy))]; 

% end; 

df=fs/f_l; 

f=-fs/2:df:fs/2; 

f=f(1:length(f)-1); 

path=3; 

CP=ch_char(:,1); 

P=ch_char(:,2); 

TAU_rel=ch_char(:,3) 

tmp=ch_char(:,4); 

% maxdel=max(CC(3,2,:)-CC(1,2,:)); 

% maxn=(length(u)+ceil(maxdel*fs)); 

% del_n=ceil(TAU_rel*fs); 

shape=[0:1:chn-1]'; 

Phi=exp(-j*shape*(P.’)); 

Coeff=Phi*diag(CP); 
for m=1 :chn 
for p=1:path 

Phi(m,p)=exp(-j*(m-1 )*P(p)); 

Coeff(m,p)=CP(p)*Phi(m,p); 

end; 

end; 

for m=1:chn 

C(m,:)=Coeff(m,1 )*ones(size(f)); 
for p=2:path 

C(m,:)=C(m,:)+Coeff(m,p)*exp(-j*2*pi*f*TAU_rel(p)); 

end; 
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Cm_f=C(m,:); 

ct=ifftshift(ifft(fftshift(Cm_f))); 
y=conv(ct,uu); 
y=y(f_l/2+1 :length(y)); 

% figure 

% plot(abs(Gm_f)); 

% figure 

% plot(unwrap(angle(Gm_f)/pi)); 

%generate and add noise 
SNR=10 A (snr_in_db/10); 
var=1 /2/SNR; 

r=randn(1 ,length(y)).*sqrt(var)+noise_mean; 
theta=rand(1 ,length(y))*2*pi; 
noise=r.*exp(j*theta); 
y=y+noise; 

Y_t(m,:)=y; 

end; 


function SNRcomparel (freq_length,xf,GMA,snr_v,snr_out) 
E=1; 

N0=0.5*E./10. A (snr_v/10); 
x0=1; 

df=2*pi/freq_length; 

integral=(1/2/pi)*sum(df.*abs(xf)./GMA); 

SNRpredict=10*log10(((2*E./N0)*x0)/integral); 


figure 

title('one sided'); 
hold on 

plot(snr_v,snr_out,’*'); 
xlabel('E/N0 (dB)'); 
ylabel('SNRout') 
plot(snr_v,SNRpredict); 
grid on 
hold off 

%implement multipath 
%three paths 

clear all 
Nd=500; 

channel_number=4; %ch number 

fs=40000; 

snr_in_db=35; 

snr_out=[j; 

alpha=0.5; 

E=1; 

Ns=8; %sample per symbol 
Tsym=1/5000; %symbol interval 
s_rate=Ns*(1/Tsym); %sampling rate 
T=1/s_rate; %smapling interval 
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fc= 15000;% carrier frequency 
fs=s_rate; 

n_mean=0; 

NO=E/(10 A (snr_in_db/10)); 

M=4; %4-ary signal 
array_d=(1500/fc)/2; 

%random data stream 
for i=1 :Nd 
temp=rand; 
if(temp<0.25) 
m(i)=1/2; 
elseif(temp<0.5) 
m(i)=3/2; 
elseif(temp<0.75) 
m(i)=5/2; 
else 

m(i)=7/2; 

end 

end 

dn=exp(j*2*pi.*m./M); 

xin=dn; 

trunc=16; 

max_delay=0.01; 
time=max_delay+Nd*Ns/fs; 
min_df=1/time; 
minFlength=fs/min_df 

freq_length=2 A nextpow2(minFlength) 


% 

[CH_char,CC]=channel_construc(channel_number,3000,75,array_d,fc,fs); 

% maxdel=max(CC(3,2,:)-CC(1,2,:)); 

% 

% df=1/maxdel; 

% minf=fs/df; 

W=(Ns*(1/Tsym)/(s_rate))*freq_length; 

F=lowpass(W,freq_length); 
dummy=ones(1 ,channel_number); 

FF=F.'*dummy; 

FF=FF.'; 

[CH_f,GMA]=channel_response_alt(channel_number,CH_char,freq_length,fs,F,fc); 

%[CH_f,GMA]=multipath(channel_number,3,3000,75,75,freqJength > fc,fs); 

%filter vector to gurantee zero outside of W row vector 
padn=(freq_length-2*trunc*Ns)/2; 

gt=[zeros(1 ,padn) sqrtrcos(alpha,Ns,trunc) zeros(l.padn)]; 

%gt=sqrtrcos(alpha,Ns,trunc); 

gf=fftshift(fft(gt,freq_length)); 
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%gf=abs(gf); 

%xt=rcos(alpha,Ns,trunc); 

xt=[zeros(1 ,padn) rcos(alpha,Ns,trunc) zeros(1 ,padn)]; 

xf=fftshift(fft(xt,freq_length)); 

xf=abs(xf); 

gtSingle=sqrtrcos(alpha,Ns,trunc); 


% u=rcosflt(dn,1/Tsym,1/T,'fir/sqrt',alpha,4,0.0001); %input wave form in sample rate 
% u=u.'; 

% length(u) 


% ddn=zeros(1,Ns*Nd-Ns+1); 

% ddn(1:8:length(ddn))=dn(:); 

[G0_f,G_f,K_f]=up_receiver2(E,N0,GMA,CH_f,xf,gf,freq_length,F); 

df=2*pi/freq_length; 

energy=sum(df*conj(G0_f).*G0_f)*(1/(2*pi)) 

gO_t=ifft(fftshift(GO_f)); 

g0_t=g0_t; 


u=sig_gen(dn,gO_t,Ns); 


Rtotal_t=channel_t_alt(u,CH_f,E,snr_in_db,n_mean,1/Tsym,1/T,alpha,fc,CH_char,freq_length); 


[m,c]=size(Rtotal_t); 
y_t=zeros(1 ,c+freq_length/2-1); 
for k=1 :channel_number 

%Rm_t=rcosflt(Rtotal_t(k,:),1/Tsym,1/T,'fir/sqrt/Fs',alpha,4,0.0001) 
Rm_t=Rtotal_t(k,:); 

Rm_t=Rm_t.'; 
g_t=ifft (ffts h ift (G_f(k,:))); 
temp=conv(g_t,Rm_t.'); 
temp=temp(freq_length/2+1:length(temp)); 
y_t=y_t+temp; 
end; 

delay=freq_length/2+1; 
yout=sig_map(y_t,delay, Ns,Nd,0); 
test=|]; 

for k=1:length(yout) 

if(abs(yout(k))<0.80*(mean(abs(yout)))) 

test(k)=1; 

else 

test(k)=0; 

end; 

end; 
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figure 

stem(test); 

TEST=GO_f.*sum(G_f.*CH_f); 

ff=[0:freqjength-1]/freq_length*fs/1000; 

figure 

plot(ff,abs(TEST)); 
grid on 
title(TEST'); 

TEST_t=(ifft(fftshift(TEST))); 

figure 

subplot(2,1,1); 
plot(real(TEST_t)); 
grid on 

ylabel('real part of TEST t'); 
grid on 

subplot(2,1,2); 
plot(imag(TEST_t)); 
ylabel('imag part of TEST_t'); 

figure 

stem(real(TEST_t(401:8:600))); 


figure 

plot(real(u)); 
grid on 
title('u'); 
figure 

plot(real(Rtotal_t(1,:))); 

grid on 

title('RtT) 

figure 

plot(real(y_t)); 
grid on 
title('yt'); 

ch_t=ifft(fftshift(GMA)); 

tt=[0:1/fs:(length(ch_t)-1)*1/fs]*1000; 

figure 

plot(abs(ifftshift(ch_t))); 
grid on 
title('gama’); 

[snrOut,diff]=SNROUT(dn,yout); 

snrOut 


function 

[xin,yout,xf]=sim_engine(channel_number,packet,count,ndiff,Cmf3d,GMA2d,Cmf3dhat,GMA2dha 
t,CH_char,noise_snr,freq_length,alpha) 

M=4; 

range=3000; 

depth=75; 
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snr_in_db=noise_snr; 

E=1; %bit energy 

Ns=8; %sample per symbol 

Tsym=1/5000; %symbol interval 

s_rate=Ns*(1/Tsym); %sampling rate 

T=1/s_rate; %smapling interval 

fc= 15000;% carrier frequency 

fs=s_rate; 

n_mean=0; 

trunc=16; 

NO=0.5*1/(10 A (snr_in_db/10)); 

fd=1/Tsym; 

Nd=length(packet); 

%delTlength=ndiff+3; 

%random data stream 
% for i=1:Nd 
% temp=rand; 

% if(temp<0.25) 

% m(i)=1/2; 

% elseif(temp<0.5) 

% m(i)=3/2; 

% elseif(temp<0.75) 

% m(i)=5/2; 

% else 
% m(i)=7/2; 

% end 
% end; 

% 


dn=exp(j*2*pi.*((2*packet+1)./2)./M); 

xin=dn; 

array_d=(1500/fc)/2; 

W=(Ns*(1/Tsym)/(s_rate))*freq_length; 

F=lowpass(W,freq_length); 
dummy=ones(1 ,channel_number); 

FF=F."dummy; 

FF=FF.'; 

CH_f=Cmf3d(:,:,count+ndiff); 

GMA=GMA2d(count+ndiff,:); 

CH_fhat=Cmf3dhat(:,:,count); 

GMAhat=GMA2dhat(count,:); 

padn=(freq_length-2*trunc*Ns)/2; 

gt=[zeros(1,padn) sqrtrcos(alpha,Ns,trunc) zeros(l.padn)]; 
gf=fftshift(fft(gt,freq_length)); 

xt=[zeros(1,padn) rcos(alpha,Ns,trunc) zeros(1 ,padn)]; 

xf=fftshift(fft(xt,freq_length)); 

xf=abs(xf); 

gtSingle=sqrtrcos(alpha,Ns,trunc); 

% u=rcosflt(dn,1/Tsym,1/T,'fir/sqrt',alpha,4,0.0001); %input wave form in sample rate 
% u=u.'; 
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% length(u) 

u=sig_gen(dn,gtSingle,Ns); 

% ddn=zeros(1,Ns*Nd-Ns+1); 

% ddn(1:8:length(ddn))=dn(:); 

[G_f]=up_receiver(E,NO,GMAhat,CH_fhat,xf,gf,freq_length,F); 

% df=2*pi/freq_length; 

% energy=sum(df*conj(G0_f).*G0_f)*(1/(2*pi)) 

% 

%Rtotal_t=channel_t_alt(u,CH_f,E,snr_in_db,n_mean,1/Tsym,1/T,alpha,fc,CH_char,freq_length) 
Rtotal_t=channel(u,CH_f,E,snr_in_db,n_mean); 


[m, c]=s ize (Rtota l_t); 
y_t=zeros(1 ,c+freq_length/2-1); 
for k=1 :channel_number 

%Rm_t=rcosflt(Rtotal_t(k,:),1/Tsym,1/T,'fir/sqrt/Fs',alpha,4,0.0001) 
Rm_t=Rtotal_t(k,:); 

Rm_t=Rm_t.'; 

g_t=ifft(fftshift(G_f(k,:)»; 

temp=conv(g_t,Rm_t.'); 

temp=temp(freq_length/2+1:length(temp)); 

y_t=y_t+temp; 

end; 

delay=trunc*Ns+1; 

% yout=y_t(delay:Ns:Nd*Ns); 
yout=sig_map(y_t,delay,Ns, Nd,0); 

% test=D: 

% 

% for k=1 :length(yout) 

% if(abs(yout(k))<0.5*(mean(abs(yout)))) 

% test(k)=1; 

% else 
% test(k)=0; 

% end; 

% end; 

% 

% figure 
% stem (test); 

Swf=N0/2; 

beta=sqrt(Swf); 

df=2*pi/freq_length; 

energy=sum(df*conj(gf).*gf)*(1/(2*pi)) 

% raised cosine; 

function p=rcos(alpha,Ns,trunc); 

% alpha = roll-off factor 
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% Ns = samples per symbol; 

% trunc = left/right truncation length in sb. int. 

tn=(-trunc*Ns:trunc*Ns)/Ns; 

p=sin(pi*tn)./(pi*tn).*cos(alpha*pi*tn)./(1-4*alpha A 2*tn. A 2); 
fO=find(p==lnf|p==-Inf);p(f0)=zeros(size(f0)); 
p(Ns*trunc+1)=1; 


function Y_t=channel_t_alt(uu,C,E,snr_in_db,noise_mean,fd,fs,alpha,fc,ch_char,f_l) 

[chn,c]=size(C); 

% W=(fd/fs)*f_l; 

% F=lowpass(W,fJ); 

% dummy=ones(1,chn); 

% FF=F,’*dummy; 

% FF=FF.'; 

% maxdel=max(CC(3,2,:)-CC(1,2,:)); 

% maxn=(length(u)+ceil(maxdel*fs)); 

% y=zeros(1,maxn); 

% tmp=ch_char(:,4) 

% for n=1:chn 
% for k= 1:3 

% %y=fftfilt(ch_t(chn,:),u); 

% tau=CC(k,2,n)-(n-1 )*tmp(k); 

% a=CC(k,1,n)*exp(-j*2*pi*fc*(n-1)*tmp(k)); 

% dummy=nth_path_t_alt(tau,a,u,fd,fs,alpha,fc); 

% y=y+[dummy zeros(1,maxn-length(dummy))]; 

% end; 

df=fs/f_l; 

f=-fs/2:df:fs/2; 

f=f(1:length(f)-1); 

path=3; 

CP=ch_char(:,1); 

P=ch_char(:,2); 

TAU_rel=ch_char(:,3) 

tmp=ch_char(:,4); 

% maxdel=max(CC(3,2,:)-CC(1,2,:)); 

% maxn=(length(u)+ceil(maxdel*fs)); 

% del_n=ceil(TAU_rerfs); 

for m=1:chn 
% for p=1: path 

% Phi(m,p)=exp(-j*(m-1 )*P(p)); 

% Coeff(m,p)=CP(p)*Phi(m,p).*exp(-j*2*pi*fc*TAU_rel(p)); 

% end; 

% end; 

% for m=1:chn 

% C(m,:)=Coeff(m,1 )*ones(size(f)); 

% for p=2:path 

% C(m,:)=C(m,:)+Coeff(m,p)*exp(-j*2*pi*f*TAU_rel(p)); 

% end; 


Cm_f=C(m,:); 
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ct=ifftshift(ifft(fftshift(Cm_f))); 

y=conv(ct,uu); 

y=y(f_l/2+1:length(y)); 

% figure 

% plot(abs(Gm_f)); 

% figure 

% plot(unwrap(angle(Gm_f)/pi)); 

%generate and add noise 
SNR=10 A (snr_in_db/10); 
var=1/2/SNR; 

r=randn(1 ,length(y)).*sqrt(var)+noise_mean; 
theta=rand(1 ,length(y))*2*pi; 
noise=r.*exp(j*theta); 
y=y+noise; 

Y_t(m,:)=y; 

end; 
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